Подскажите по процедуре

type
  mas = array[1..100, 1..100] of integer;
 
var
  a, b, c: mas;
  i, j: integer;
  n: integer;
  Chislo: integer;
 
procedure Vvod2m(var x: mas; m: integer);
var
  i, j: integer;
begin
  for i := 1 to m do
    for j := 1 to m do x[i, j] := random(10) - 3;
end;
 
procedure Vivod2m(var x: mas; m: integer);
var
  i, j: integer;
begin
  for i := 1 to m do 
  begin
    for j := 1 to m do write(x[i, j]:5);
    writeln;
  end;
end;
 
function PrKr3Pol(x: mas; m: integer): integer;
var
  i, j: integer;
  buf: integer;
begin
  buf := 1;
  for i := 1 to m do
    for j := 1 to m do 
      if (x[i, j] mod 3 = 0) and (x[i, j] > 0) then buf := buf * x[i, j];
  if buf <> 1 then PrKr3Pol := buf else PrKr3Pol := 0;  
end;
 
procedure ZamenaDiag(var x: mas; m: integer; const Chislo: integer);
var
  i, j: integer;
begin
  for i := 1 to m do
    for j := 1 to m do
      a[i, n - i + 1] := Chislo;
end;
 
begin
  {--- Первый массив ---}
  writeln('Введите N для первого массива: ');
  readln(n);
  writeln('Первый массив');
  Vvod2m(a, n);
  Chislo := PrKr3Pol(a, n);
  ZamenaDiag(a, n, Chislo);
  Vivod2m(a, n);
  {--- Второй массив ---}
  writeln('Введите N для второго массива: ');
  readln(n);
  writeln('Второй массив');
  Vvod2m(a, n);
  Chislo := PrKr3Pol(a, n);
  ZamenaDiag(a, n, Chislo);
  Vivod2m(a, n);
  {--- Третий массив ---}
  writeln('Введите N для третьего массива: ');
  readln(n);
  writeln('Третий массив');
  Vvod2m(a, n);
  Chislo := PrKr3Pol(a, n);
  ZamenaDiag(a, n, Chislo);
  Vivod2m(a, n);
end.

procedure Vvod2m(var x: mas; m: integer);
var
  i, j: integer;
begin
  for i := 1 to m do
    for j := 1 to m do x[i, j] := random(10) - 3;
end;