Модули: ввести, транспонировать и вывести матрицу заданного размера

Program labrab1;
uses mod1, mod2;
var
p1, p2, p3 : procType;
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.

Unit mod1;
interface
const
nmax=20;
type
tAr=array[1..nmax,1..nmax] of integer;
procType=procedure(var ar:tAr; n:byte);
procedure input(var ar:tAr; n:byte);
procedure outPut(var ar:tAr; n:byte);
implementation
 
procedure input;
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 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;
end.

Unit mod2;
interface
procedure change(var ar:tAr; n:byte);
implementation
procedure change;
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;
end.