Ввод массива через процедуру

uses
 crt;
const
 n=2;
 m=3;
type
 amas=array [1..n,1..m] of integer;
 bmas=array [1..m,1..n] of integer;
 
procedure vvodmas(v:integer);
var
 a:amas;
 i,j:integer;
begin
writeln('Вводим первый массив');
 clrscr;
 for i:=1 to n do
  for j:=1 to m do
   readln(a[i,j]); //ввод массива
end;
 
var
 a:amas;
 i,j:integer;
 
begin
vvodmas(1);
writeln('Первый массив');
for i:=1 to n do
  begin
   for j:=1 to m do
    write(a[i,j]:3); //вывод массива
    writeln;
  end;
 
end.

procedure vvodmas(var a:amas);
var i,j:integer;
.......................
var
 a:amas;
 i,j:integer;
 
begin
vvodmas(a);

uses
  crt;
type
  MyArr=array [1..100,1..100] of integer;
var
  a:MyArr;
  b:MyArr;
  i,j:integer;
{ïðîöåäóðà ââîäà âûâîäà ìàòðèöû}
procedure WP(var a:MyArr; const ch:char);
var
  i,j,n,m:integer;
begin
  write('Êîëè÷åñòâî ñòðîê: ');
  readln(n);
  write('Êîëè÷åñòâî ñòîëáöîâ:');
  readln(m);
  for i:=1 to n do
    for j:=1 to m do
    begin
      write(ch,'[',i,',',j,']:');
      readln(a[i,j]); //ââîä ìàññèâà
    end;
  writeln('Èñõîäíûé ìàññèâ ',ch,':');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:2,' ');
    writeln
  end;
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  WP(a,'A');
  WP(b,'B')
end.

for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    x:=0;
     for k:=1 to m do
      x:=x+a[i,k]*b[k,j];
      c[i,j]:=x;
   end;
 end;

{процедура перемножения}
procedure Peremnoj(a,b:MyArr; const na,ma,nb,mb:integer; ch,ch1:char);
var
  i,j:integer;
begin
  if (na=nb) and (ma=mb) then
  begin
    writeln('Перемножение матриц ',ch,' и ',ch1);
    for i:=1 to na do
    begin
      for j:=1 to ma do
        write(a[i,j]*b[i,j],' ');
      writeln;
    end;
  end;
end;

type matrix=array[1..225,1..225]of real;
var i,j,m,n:integer; a:matrix;
 
procedure readm(mm,mn:integer; am:matrix);
 var i,j:integer;
 begin
      for i:=1 to mm do for j:=1 to mn do read(am[i,j]);
 end;
procedure writem(mm,mn:integer; am:matrix);
 var i,j:integer;
 begin
      for i:=1 to mm do begin
       for j:=1 to mn do write(am[i,j]:3:2,' ');
       writeln;
      end;
 end;
begin
     writeln('size of matrix:');
     readln(m, n);
     for i:=1 to m do
     for j:=1 to n do a[i,j]:=0; 
     readm(m,n,a);
     writem(m,n,a);
end.

procedure readm(mm,mn:integer; am:matrix);

procedure readm(mm,mn:integer; var am:matrix);