Ввод массива через процедуру - 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.

Решение задачи: «Ввод массива через процедуру»

Листинг программы

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

Объяснение кода листинга программы

Создается процедура с именем readm.
Процедура принимает три аргумента:
- mm - целочисленная переменная, обозначающая количество строк в матрице,
- mn - целочисленная переменная, обозначающая количество столбцов в матрице,
- am - матрица, передаваемая по ссылке для ввода значений.
Внутри процедуры выполняется ввод значений для матрицы am.