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

var mas:array [1..10,1..10] of integer;
begin
       for i:=1 to 10 do
       begin
       for j:=1 to 10 do
              begin
                     mas[i,j]:=random(16)-15;
                     if mas[i,j]<0 then mas[i,j]:=0;write(mas[i,j],' ');
              end;
              writeln;
          end;
end.

uses crt;
const n=7; m=4;
var a:array[1..n,1..n] of integer;
    i,j,kol:integer;
begin
for i:=1 to n do
    begin
         for j:=1 to m do
             begin
                  a[i,j]:=random(10)-5;
                  write(a[i,j]:4);
                  if a[i,j]<0 then begin a[i,j]:=0; inc(kol); end;
             end;
         writeln;
    end;
writeln;
for i:=1 to n do
    begin
         for j:=1 to m do
             write(a[i,j]:4);
         writeln;
    end;
writeln('Количество отрицательных элементов = ',kol);
end.

type Tmas = array [1..7,1..4] of integer;
var mas:Tmas;
i,j,o:byte;
 
begin
randomize;
o:=0;
for I:=1 to 7 do
  begin
    for j := 1 to 4 do
      mas[i,j]:=random(10)-5;
  end;
 
for I := 1 to 7 do
    begin
      for j := 1 to 4 do
        write(mas[i,j], ' ');
        writeln;
    end;
 
for j:= 1 to 4 do
  begin
     for I := 1 to 7 do
       if mas[i,j] < 0 then
         begin
         mas[i,j]:=0;
         o:=o+1;
         end;
  end;
 writeln;
  for I := 1 to 7 do
    begin
      for j := 1 to 4 do
        write(mas[i,j], ' ');
        writeln;
    end;
 
  writeln('Количество нулей = ', o);
  readln;
end.