Двумерные массивы...Pascal

[Svetlana999]

массиве чисел содержащих вещественные числа произвести замену.
Отрицательные числа заменить на 1.Сосчитать кол-во замен.Вывести на экран массив до замены и после замены с именами.

[Mad_Cat]

for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(50)-25+random(100)/100;
write(a[i,j]:8:2,' ');
end;
writeln;
end;
c:=0;
for i:=1 to n do begin
for j:=1 to m do begin
 if a[i,j]<0 then begin inc(c);a[i,j]:=1;end;
write(a[i,j]:8:2,' ');
end;
writeln;
end;