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

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