Заменить все отрицательные элементы нулями и подсчитать сумму положительных элементов

const
  size=100;
 
type
  tmatrix=array [1..100,1..100] of real;
 
 procedure creatematrix(var arg:tmatrix;an,am:byte);
var
  x,y:shortint;
  i,j:byte;
begin
  for i:=1 to an do begin
    j:=0;
    repeat
      x:=random(100)-50;
      y:=random(100)-50;
      if y<>0 then begin
        inc(j);
        arg[i,j]:=x/y;
      end;
    until j=am;
  end;
end;
 
procedure changeentry(var arg:tmatrix;an,am:byte);
var
  i,j:byte;
begin
  for i:=1 to an do
    for j:=1 to am do
      if arg[i,j]<0 then
        arg[i,j]:=0;
end;
 
procedure writematrix(var arg:tmatrix;an,am:byte);
var
  i,j:byte;
begin
  for i:=1 to an do begin
    for j:=1 to am do
      write(arg[i,j]:5:2,' ');
    writeln;
  end;
end;
 
var
  ar:tmatrix;
  n,m:byte;
 
begin
  randomize;
  writeln('Введите размер массива MxN (2 числа через пробел) : ');
  readln(n,m);
  creatematrix(ar,n,m);
  writematrix(ar,n,m);
  writeln;
  changeentry(ar,n,m);
  writematrix(ar,n,m);
  readln
end.