freeman.pas

uses
  crt;

var
   N,i,j:byte;
   a: array[1..20,1..20] of integer;
   t:integer;

procedure VIVOD;
begin
  for i:=1 to N do
      begin
        for j:=1 to N do
            Write(a[i,j]:4);
        WriteLn;
      end;
end;

begin
ClrScr;
Randomize;
Write('N: '); ReadLn(N);
for i:=1 to N do
    for j:=1 to N do
        a[i,j] := Random(30)-15;
VIVOD;
for i:=1 to N do
    begin
      t := a[1,i];
      a[1,i] := a[i, 1];
      a[i,1] := t;
    end;
WriteLn;
VIVOD;
ReadKey;
end.