Ввести, транспонировать и вывести матрицу заданного размера (параметр процедурного типа)

const
  nmax=20;
type
  tAr=array[1..nmax,1..nmax] of integer;
  procType=procedure(var ar: tAr; n: byte);
var
  p1, p2, p3: procType;
{$F+}
procedure input(var ar: tAr; n: byte);
var i,j: byte;
begin
  for i:=1 to n do
    for j:=1 to n do
    begin
      write('a[',i,',',j,'] = ');
      readln(ar[i,j]);
    end;
end;
 
procedure outPut(var ar: tAr; n: byte);
var i,j: byte;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(ar[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
procedure change(var ar: tAr; n:byte);
var i,j: byte;
     t: integer;
begin
  for i:=2 to n do
    for j:=1 to i-1 do
      begin
        t:=ar[i,j];
        ar[i,j]:=ar[j,i];
        ar[j,i]:=t;
      end;
end;
{$F-}
 
 var
   n: byte;
   a: tAr;
 begin
   write('Ââåäèòå ðàçìåð ìàòðèöû. n = ');
   readln(n);
   p1:=input; p2:=change; p3:=outPut;
   p1(a,n);
   writeln('Èñõîäíàÿ ìàòðèöà:');
   p3(a,n);
   p2(a,n);
   writeln('Òðàíñïîíèðîâàííàÿ ìàòðèöà:');
   p3(a,n);
 end.