Двумерные массивы

uses crt;
type matr=array[1..50,1..50] of integer;
procedure Vvod(var x:matr;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
x[i,j]:=random(20);
end;
procedure Vyvod(var x:matr;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to m do
  write(x[i,j]:2,' ');
  writeln;
 end;
end;
procedure Sort(var x:matr;n,m:integer);
var i,j,l,b:integer;
begin
for j:=1 to m do
 begin
  for i:=1 to n-1 do
  for l:=i+1 to n do
  if x[i,j]<x[l,j] then
   begin
    b:=x[i,j];
    x[i,j]:=x[l,j];
    x[l,j]:=b;
   end;
  end;
end;
var a,b,c:matr;
    n1,m1,n2,m2:integer;
begin
clrscr;
randomize;
write('n1=');readln(n1);
write('m1=');readln(m1);
write('n2=');readln(n2);
write('m2=');readln(m2);
Vvod(a,n1,m1);
writeln('Ishodnyj massiv A:');
Vyvod(a,n1,m1);
Sort(a,n1,m1);
writeln('Izmenennyj massiv A:');
Vyvod(a,n1,m1);
readln;
Vvod(b,n2,m2);
writeln('Ishodnyj massiv B:');
Vyvod(b,n2,m2);
Sort(b,n2,m2);
writeln('Izmenennyj massiv B:');
Vyvod(b,n2,m2);
readln;
Vvod(c,n2,m2);
writeln('Ishodnyj massiv C:');
Vyvod(c,n2,m2);
Sort(c,n2,m2);
writeln('Izmenennyj massiv C:');
Vyvod(c,n2,m2);
readln
end.