В матрице все отрицательные элементы преобразовать в положительные, а все нули заменить единицами - Turbo Pascal

const m=5;n=4;
var
  b:array[1..m,1..n] of integer;
  i,j:integer;
begin
  writeln('Введите матрицу(',m,'x',n,') по строкам:');
  for i:=1 to m do begin
    write('Строка ',i,':');
    for j:=1 to n do read(b[i,j]);
  end;
  writeln('Исходная матрица:');
  for i:=1 to m do begin
    for j:=1 to n do write(b[i,j]:5);
    writeln;
  end;
  writeln('Полученная матрица:');
  for i:=1 to m do begin
    for j:=1 to n do begin
      b[i,j]:=abs(b[i,j])+ord(b[i,j]=0);
      write(b[i,j]:5);
    end;
    writeln;
  end;
end.