Написать программу замены всех отрицательных элементов в массиве 4×5 заполненном с клавиатуры на их абсолютные значения. Вывести содержимое массива до и после обработки — Pascal(Паскаль)

program zad;
var
a:array[1..4,1..5] of integer;
i,j:integer;
begin
  for i:=1 to 4 do
  begin
    for j:=1 to 5 do
    begin
      write('a[',i,',',j,']=');
      readln(a[i,j]);
    end;
  end;
  writeln('исходный массив: ');
  for i:=1 to 4 do
  begin
    for j:=1 to 5 do
    begin
      write(a[i,j]:5);
    end;
    writeln;
  end;
  writeln('преобразованый массив: ');
  for i:=1 to 4 do
  begin
    for j:=1 to 5 do
    begin
      if a[i,j]<0 then a[i,j]:=abs(a[i,j]);
      write(a[i,j]:5);
    end;
    writeln;
  end;
 
  readln;
end.