{$r-}
Type
 T=ARRAY[1..1] of Integer;

Var
 A:^T;
 i,j,N:Integer;

Begin
 Write('N= ');
 Readln(N);
 GetMem(A, SizeOf(Integer)*N*N);

 Writeln('Initial matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A^[N*(i-1)+j]:=Random(20)-10;
     Write(A^[N*(i-1)+j]:4);
    end;
   Writeln;
  end;
 Writeln;

 For i:=1 to N do
  A^[N*(i-1)+i]:=0;

 WriteLn('New matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    Write(A^[N*(i-1)+j]:4);
   Writeln;
  end;

 FreeMem(A, SizeOf(Integer)*N*N);

 Readln
End.