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

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.