ошибка в вызове процедуры меняющей значения х и у для транспонирования матрицы

uses crt;
const nmax=20;
procedure trans(i,j: integer);
var n:integer;
begin
n:=i;
i:=j;
j:=n;
end;
{}
var n,X,z,i,j:integer;
a,b:array [1..nmax,1..nmax] of integer;
Begin
repeat
 write(' n=');
 readln(n);
 until n in [1..nmax];
 writeln('Èñõîäíàÿ ìàòðèöà:');
for i:=1 to n do
 begin
 for j:=1 to n do
 begin
 a[i,j]:=random(20);
 write(a[i,j]:3);
 end;
 writeln;
 end;
 writeln;
      for i:=1 to n do
      begin
      for j:=1 to n do
      begin
      trans(i,j);
      write(a[i,j]:3);
      end;
      writeln;
      end;
 writeln;
 End.

uses crt;
const nmax=20;
procedure Swap(var x,y:integer);
var z:integer;
begin
z:=x;
x:=y;
y:=z;
end;
var n,i,j:integer;
    a:array [1..nmax,1..nmax] of integer;
Begin
repeat
 write(' n=');
 readln(n);
 until n in [1..nmax];
 writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:3);
   end;
  writeln;
end;
writeln;
for i:=2 to n do
for j:=1 to i-1 do
Swap(a[i,j],a[j,i]);
writeln('Транспонированная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.