В каждой строке матрицы заменить знак максимального по модулю элемента на противоположный.

const
  zmax=10;
type
  temp=array[1..zmax,1..zmax]of integer;
var
  n, k, u, h:integer;
  
procedure vvod (var x:temp;var nsize, hsize:byte);
var
  i, j:byte;
begin
  randomize;
  repeat
    write('Количество строк:');
    readln(nsize);
    write('Количество столбцов:');
    readln(hsize);
  until (nsize in [1..zmax]) and (hsize in [1..zmax]);
  for i:=1 to nsize do
    for j:=1 to hsize do
      x[i,j]:=random(20);
end;
 
procedure vivod(msg:string;x:Tmatr;nsize,msize:byte);
 
var
  i, j:byte;
begin
  writeln(msg);
  for i:=1 to nsize do
    for j:=1 to hsize do begin
      write(x[i,j]:4);
      if j=hsize then
        writeln;
    end;
  writeln;
end;
 
procedure obrab (x:temp; nsize, hsize:byte);
var
  i, j:byte;
  max: iteger;
begin

uses crt;
const nmax=20;
type  matr=array [1..nmax,1..nmax] of integer;
var   n,m: byte;
      a: matr;
 
procedure GenM (ri,rj: byte; var z:matr);
var i,j: byte;
begin
for i:=1 to ri do
    for j:=1 to rj do
        z[i,j]:=random(199)-99;
end;
 
procedure Vyvod (ri,rj: byte; z:matr);
var i,j: byte;
begin
writeln('Ìàññèâ À');
for i:=1 to ri do
    begin
    for j:=1 to rj do
        write(z[i,j]:5);
    writeln;
    end;
end;
 
procedure Modif (ri,rj: byte; var z:matr);
var i,j,jmax: byte;
begin
for i:=1 to ri do
    begin
    jmax:=1;
    for j:=1 to rj do
        if abs(z[i,j])>abs(z[i,jmax])
           then  jmax:=j;
    z[i,jmax]:=z[i,jmax]*(-1);
    end;
end;
 
begin
repeat
writeln('Размерность матрицы, не более ',nmax,', n,m=');
readln(n,m);
until (n in [1..nmax]) and (m in [1..nmax]);
GenM (n,m,a);
Vyvod (n,m,a);
Modif (n,m,a);
Vyvod (n,m,a);
end.