Дан двумерный массив 5х5. Заменить нулем все его отрицательные элементы — Pascal(Паскаль)

var a:array[1..5,1..5] of integer; i,j:byte;
begin
  for i:=1 to 5 do
      for j:=1 to 5 do
      begin
        writeln('Введите элемент ',i,' строки ',j,' столбца');
        readln(a[i,j]);
      end;
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    write(a[i,j]:5);
    writeln;
  end;
  for i:=1 to 5 do
    for j:=1 to 5 do
    if a[i,j]<0 then a[i,j]:=0;
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    write(a[i,j]:5);
    writeln;
  end;
end.