Создать построчно матрицу., Решить с помощью директивы absolute Опции

[дождинка]

Будьте так добры. Используя директиву absolute, создать построчно с помощью
подпрограммы матрицы 5х5 и 2х3.

[дождинка]

вроде прогу написала, вот что вышло

program matr;
procedure MatrA(var z);
var 
       MasA:array [1..5,1..5] of integer absolute z;
       i,j:integer;
begin
  for  i:=1 to 5 do
  for j:=1 to 5 do
  MasA[i,j]:=Random(10);
  for i:=1 to 5 do
   begin
    for j:=1 to 5 do
    write(masA[i,j], '  ');
end;
end;
procedure MatrB(var t);
var
     MasB:array [1..2,1..3] of integer absolute t;
     i,j:integer;
begin
   for  i:=1 to 2 do
   for j:=1 to 3 do
   MasB[i,j]:=Random(10);
   for i:=1 to 2 do
    begin
     for j:=1 to 3 do
     write(MasB[i,j] , '  ');
end;
end;
var 
     x:array [1..5,1..5] of integer;
     y:array [1..2,1..3] of integer;
begin
  writeln('matrix A 5*5');
  writeln('----------------------------');
  MatrA(x);
  writeln('matrix B 2*3');
  writeln('----------------------------');
  MatrB(y);
  readln
end.

Добавлено через 4 мин.
она работает)мне преподаватель задал на защиту переделать ее, чтобы подпрограмма только создавала матрицу, а выводила ее основная программа. помогите пожалуйста к завтрашнему дню)

М

Тэги!