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

uses crt;
 
const
  nmax = 10;
  mmax = 10;
  
type
  Matrix = array [1..nmax, 1..mmax] of integer;
 
procedure new_matrix(var C : Matrix; n, m : integer);
var
  i, j : integer;
begin
  Writeln('Введите элементы массива: ');
  for i := 1 to n do
    for j := 1 to m do Read(C[i, j]);
end;
 
procedure print_matrix (C : Matrix; n, m : integer);
var
  i, j : integer;
begin
  for i := 1 to n do
    begin
      for j := 1 to m do Write(C[i, j]:0, ' ');
      Writeln;
    end;
end;  
 
procedure go_matrix(var C : Matrix; n, m : integer);
var
  i, j, jmax : integer;
  max : integer;
  
begin
  for i := 1 to n do
    begin
      max := abs(C[i, 1]); jmax := 1;
      for j := 2 to m do
        if abs(C[i, j]) > max then
          begin
            max := abs(C[i, j]);
            jmax := j;
          end;
      C[i, jmax] := - C[i, jmax];
    end;
end;
 
var
  C : Matrix;
  n, m : integer;
 
begin
  ClrScr;
  Repeat
    Write('Количество строк (не более ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Repeat
    Write('Количество столбцов (не более ', mmax, ') = ');
    Readln(m);  
  until m in [1..mmax];  
  new_matrix(C, n, m);
  ClrScr;
  Writeln('Исходный массив: ');
  print_matrix(C, n, m);
  go_matrix(C, n, m);
  Writeln('Новый массив: ');
  print_matrix(C, n, m);
end.