Заменить максимальный элемент каждой строки на противоположный по знаку — Pascal(Паскаль)

Program xa;
var
 a:array[1..100,1..100] of real;
 m,n,i,j,k:integer;
 max:real;
begin
 Writeln('Bbedute m u n');  {m kolu4ecTBo Ctpok, Hy a n kol-Bo ctoLbL/oB}
 Write('m=');
 readln(m);
 Write('n=');
 readln(n);
 Writeln('Bbedute Cam MaccuB');
 for i:=1 to m do
  for j:=1 to n do
  begin
   write('a[' ,i, ',' ,j, ']=');
   readln(a[i,j]);
  end;
 Writeln('matPuL/a do u3MeHeHUu');
 for i:=1 to m do
 begin
  for j:=1 to n do
   Write(a[i,j]:8:3);
  Writeln;
 end;
 writeln;
 for i:=1 to m do
 begin
  max:=a[i,1];
  k:=1;
  for j:=2 to n do
  if a[i,j]>max then
  begin
   max:=a[i,j];
   k:=j
  end;
  a[i,k]:=-1*a[i,k]
 end;
 Writeln('noLy4uBLLIeeC9 matPuL/a');
 for i:=1 to m do
 begin
  for j:=1 to n do
   Write(a[i,j]:8:3);
 Writeln;
 end;
 readln;
end.