Массив A(m,n) преобразовать в массив C(m,n) в котором все элементы из массива A меньшие 3 заменяются на наибольший элемент массива из A — Pascal(Паскаль)

program PascalGuru;

var
  A, C: array [1 .. 30, 1 .. 30] of integer;
  i, j, m, n: integer;

  { -------------------------------------------- }
function maxA: integer;
var
  i, j, rez: integer;
begin
  rez := A[1, 1];
  for i := 1 to m do
    for j := 1 to n do
      if A[i, j] > rez then
        rez := A[i, j];
  maxA := rez;
end;

{ -------------------------------------------- }
begin
  write('strok M= ');
  readln(m);
  write('stolbcov N= ');
  readln(n);

  { writeln ('Vvedite elementy massiva: '); }
  for i := 1 to m do
    for j := 1 to n do
      A[i, j] := -5 + random(26); { begin
    write ('X[',i,',',j,']='); readln (A[i,j]); end; }

  write('Vot vvedennyy vami massiv: ');
  for i := 1 to m do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:8);
  end;

  for i := 1 to m do
    for j := 1 to n do
      if A[i, j] < 3 then
        A[i, j] := maxA();

  writeln;
  writeln;
  write('Vot preobrazovannyi massiv: ');
  for i := 1 to m do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:8);
  end;

  readln;

end.