Заменить в матрице все отрицательные элементы нулями

program z;
var i,j,n:integer;
a:array [1..100,1..100] of integer;
begin
     writeln('Введите размерность матрицы');
     readln(n);
     writeln('Случайная матрица');
     randomize;
     for i:=1 to n do
         begin
              for j:=1 to n do
                  begin
                       a[i,j]:=trunc((20-(-20))*random+(-20));
                       write(a[i,j],' ');
                  end;
              writeln;
         end;
     for i:=1 to n do
         for j:=1 to n do
             if a[i,j]<0
                then
                    a[i,j]:=0;
     writeln('Обработанная матрица');
     for i:=1 to n do
         begin
              for j:=1 to n do
                  write(a[i,j],' ');
              writeln;
         end;
end.

uses crt;
const n=5;
var
a:array[1..n,1..n] of integer;
i,j: integer;
begin
clrscr;
writeln('Исходная матрица');
writeln;
randomize;
for i:=1 to n do
    begin
         for j:=1 to n do
             begin
                  a[i,j]:=random(10)-5;
                  write(a[i,j]:3);
             end;
         writeln;
    end;
writeln;
writeln('После преобразования');
for i:=1 to n do
    for j:=1 to n do
        if a[i,j]<0 then a[i,j]:=0;
writeln('');
for i:=1 to n do
    begin
         for j:=1 to n do
             write(a[i,j]:3);
         writeln;
    end;
    readln;
end.