Написать программу замены в двумерном массиве его элементов на их модули

{ массив 2 на 4}
const  a:array[1..2,1..4] of integer = (
  (1,2,3,4),
  (-1,-2,-3,-4)  );
var  i,j:integer;
begin
for i := 1 to 2 do
for j:= 1 to 4 do
  a[i,j]:=abs(a[i,j]);

for i := 1 to 2 do
begin
  for j:= 1 to 4 do
    write(a[i,j],' ');
  writeln;
end;
  
end.