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

var
    a: Array[Byte, Byte] Of ShortInt;
    i, j, n, m, jMax: Byte;
    max: ShortInt;
begin
    Randomize;
    repeat
        Write('n(>0)='); ReadLn(n);
    until (n > 0);
    repeat
        Write('m(>0)='); ReadLn(m);
    until (m > 0);
    WriteLn('Original array:');
    for i := 0 to n - 1 do
    begin
        jMax := 0;
        for j := 0 to m - 1 do
        begin
            a[i, j] := Random(199) - 99;
            Write(a[i, j]:4);
            if (Abs(a[i, j]) > Abs(a[i, jMax]))
            then
                jMax := j;
        end;
        WriteLn;
        max := Abs(a[i, jMax]);
        for j := 0 to m - 1 do
            if (Abs(a[i, j]) = max)
            then
                a[i, j] := -a[i, j];
    end;
    WriteLn('Modified array:');
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
            Write(a[i, j]:4);
        WriteLn;
    end;
end.