Дан массив Заменить максимальный элемент каждой строки на противоположный.

program fg1;
const n=6;
m=7;
dd=51;
type dmyarray=array[1..n,1..m] of integer;
var a:dmyarray;
k,max,maxi,maxj:integer;
Procedure init2 (var x:dmyarray);
Var i,j:integer;
Begin
for i:=1 to n do
for j:=1 to m do
x[i,j]:= random(dd)-25;
end;
procedure print1 (x:dmyarray);
Var i,j:integer;
begin 
for i:= 1 to n do
begin
for j:=1 to m do
write(x[i,j]:5);
writeln;
end;
end;
procedure maximum(x:dmyarray;var max,maxi,maxj:integer);
var i,j:integer;
Begin
max:=x[1,1];
maxi:=1;
maxj:=1;
for i:=1 to n do
for j:=1 to m d
if x[i,j] > max then 
begin
max:=x[i,j];
maxi:=i;
maxj:=j;
end;
{x[maxi,maxj]:=-x[maxi,maxj];}
end;
 
BEGIN
randomize;
init2(a);
print1(a);
maximum(a,a[1,1],1,1);
a[maxi,maxj]:=-a[maxi,maxj];
 
writeln('maxi =',maxi);
writeln('maxj =',maxj);
END.

program fg1;
uses crt;
const
  n=6;
  m=7;
  dd=51;
type
  dmyarray=array[1..n,1..m] of integer;
var
  a:dmyarray;
  k,max,maxi,maxj:integer;
 
Procedure init2 (var x:dmyarray);
Var i,j:integer;
Begin
  for i:=1 to n do
    for j:=1 to m do
      x[i,j]:= random(dd)-25;
end;
 
procedure print1 (x:dmyarray);
Var i,j:integer;
begin 
  for i:= 1 to n do begin
    for j:=1 to m do
      write(x[i,j]:5);
    writeln;
  end;
end;
 
procedure maximum(x:dmyarray;var arr:dmyarray);
var i,j:integer;
Begin
  max:=arr[1,1];
  maxi:=1;
  maxj:=1;
  for i:=1 to n do begin
    for j:=1 to m do
      if arr[i,j] >= max then begin
        max:=arr[i,j];
        maxi:=i;
        maxj:=j;
      end;
    arr[maxi,maxj]:=-arr[maxi,maxj];
    max:=arr[i+1,1];
  end;
end;
 
BEGIN
  randomize;
  init2(a);
  print1(a);
  maximum(a,a);
  writeln;
  print1(a);
  readln;
END.

Uses
 CRT;
Const
 n=6;
 m=7;
Type
  mas=array[1..n,1..m] of integer;
var
 a:mas;
 i,j:integer;
 
procedure zap(Var m:mas;k,l:integer);
Var
 jmax:integer;
begin
randomize;
 for i:= 1 to k do
 begin
 jmax:=1;
  for j:= 1 to l do
   begin
    m[i,j]:=random(10)-6;
    write(m[i,j]:3);
    if a[i,j]>a[i,jmax] then
     jmax:=j;
   end;
   a[i,jmax]:=-a[i,jmax];
  writeln;
 end;
end;
 
procedure print(Var m:mas;k,l:integer);
begin
 for i:= 1 to k do
 begin
  for j:= 1 to l do
    write(m[i,j]:3);
  writeln;
 end;
end;
 
Begin
 zap(a,n,m);
 writeln;
 print(a,n,m);
 Readln
End.

Uses
 CRT;
Const
 n=6;
 m=7;
Type
  mas=array[1..n,1..m] of integer;
var
 a:mas;
 i,j:integer;
 
procedure zap(Var m:mas;k,l:integer);
begin
randomize;
 for i:= 1 to k do
 begin
  for j:= 1 to l do
   begin
    m[i,j]:=random(10)-6;
    write(m[i,j]:3);
   end;
  writeln;
 end;
end;
 
procedure zamena(Var m:mas;k,l:integer);
Var
 jmax:integer;
begin
 for i:= 1 to k do
 begin
 jmax:=1;
  for j:= 1 to l do
    if a[i,j]>a[i,jmax] then
     jmax:=j;
   a[i,jmax]:=-a[i,jmax];
 end;
end;
 
procedure print(Var m:mas;k,l:integer);
begin
 for i:= 1 to k do
 begin
  for j:= 1 to l do
    write(m[i,j]:3);
  writeln;
 end;
end;
 
Begin
 zap(a,n,m);
 writeln;
 zamena(a,n,m);
 print(a,n,m);
 Readln
End.