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

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]<0 then a[i,j]:=121212;      Write(a[i,j]:7)      end;    Writeln    endend.