Срочноооо!!! Плиз!! Дан двумерный массив A[n, m]. Поменять значения всех отрицательных

Const
  mm=50; максимально вероятное кол-во строк
  nn=50; очень вероятное кол-во столбцов
var
  a:array[1..mm,1..nn] of integer;
  i,j,m,n:integer;
begin
  Randomize;
  Write('Количество строк в массиве: '); Read(n);
  Write('Количество столбцов в массиве: '); Read(m);
  Writeln('*** Исходный массив ***');
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=Random(101)-50; [-50;50]
      Write(a[i,j]:7)
      end;
    Writeln
    end;
  Writeln;
  for i:=1 to n do begin
    for j:=1 to m do begin
      if a[i,j]lt;0 then a[i,j]:=121212;
      Write(a[i,j]:7)
      end;
    Writeln
    end
end.