Заменить на главной диагонали матрицы все отрицательные элементы их абсолютными значениями

program lab3;
const
n=3;
m=3;
type matrix=array[1..n,1..m] of real;
var a:matrix; I,J:integer; Imax:real;
S:real;
Begin
for I:=1 to 3 do
for J:=1 to 3 do
a[i,i]:=random(60)-30;
for I:=1 to 3 do
begin
for J:=1 to 3 do
write(a[I,J]:6:1,' ');
end;
for I:=1 to 3 do
a[i,i]:=abs(a[i,i]);
for I:=1 to 3 do
begin
write(a[I,I]:6:1,' ');
writeln;
end;
Imax:=100;
for I:=1 to 3 do
begin
for I:=1 to 3 do
if (a[2,J]>=-1.2)and(a[2,J]<=4.7) then
if a[2,J]>Imax then Imax:=a[2,J];
begin
Imax:=a[I,J];
Imax:=I;
end;
writeln('max element 2 stroki:');
writeln('max=',Imax,' ');
end;
S:real
begin
S:=0;
i:=1
for J:=1 to 4 do
S:=S+ (1/(a[i,j]);
writeln ('S=',S:6:1);
end;
end.

program lab3;
 
const
n=3; m=3;
 
type matrix=array[1..n,1..m] of real;
 
var 
  a:matrix; 
  I,J:integer; 
  Imax:real;
  S:real;
 
Begin
for I:=1 to 3 do
begin
for J:=1 to 3 do 
 begin
 a[i,j]:= random(60)-30;
 Write(a[I,J]:6:1,' ');
 end;
Writeln; 
end;
Writeln('Новый массив: ');  
for I:=1 to 3 do a[i,i]:=abs(a[i,i]);
for I:=1 to 3 do
begin
 for J:=1 to 3 do Write(a[I,J]:6:1,' ');
 Writeln; 
end;
Imax:=a[2,1];
for J:=2 to 3 do
  if (a[2,J]>=-1.2)and(a[2,J]<=4.7) and (a[2,J] > Imax) then Imax:=a[2,J];
if (Imax >= -1.2) and (Imax <= 4.7) then writeln('max element 2 stroki: ', IMax) 
 else Writeln('Максимального элемента нет!');
S:=0;
for J:=1 to 3 do S := S + 1/(a[1,j]);
Writeln ('S = ',S:6:1);
 
end.