Поменять знак всех положительных элементов, расположенных в строке и столбце с максимальным элементом

Program RB;
Uses Crt;
Var
    a:Array [1..10,1..10] of Real;
    i,j:Integer;
    N:Integer;
    min:Real;
    Xmin:Integer;
    summa:Real;
Begin
    ClrScr;
    Repeat
        Write('Введите размерность матрицы (N>0)and(N<=10)');
        Readln(N);
    Until( (N>0)and(N<=10) );
    ClrScr;
    For i:= 1 to N Do Begin
        For j:= 1 to N Do Begin
            gotoxy(j*7,i*2);
            Read(a[i,j]);
        End;
    End;
    Xmin:=-1;
    Summa:=0;
    For i:= 1 to N Do Begin
        For j:= 1 to N Do Begin
 
if((a[i,j] > 0 ) and ( ( a[i,j] < min ) or (Xmin = -1 ) ) ) Then 
            Begin
               min:=a[i,j];
               Xmin:=j;
            End;
        End;
    End;
    if(Xmin <> -1) Then Begin
        For i:= 1 to N Do Begin
            if(a[i,Xmin]<0) Then Begin
               Summa:=Summa+a[i,Xmin];
            End;
        End;
        Writeln('Сумма = ',Summa);
    End
    Else Begin
    Writeln('В матрице только отрицательные элементы. Нельзя 
        посчитать сумму');
    End;
    ReadKey;

var
    mass : Array Of Array Of ShortInt;
    n, i, j : Byte;
    iMax : Byte = 0;
    jMax : Byte = 0;
    max : ShortInt = -128;
 
begin
    Randomize;
    Write('Input n='); ReadLn(n);
    SetLength(mass, n);
    for i := 0 to n-1 do
    begin
        SetLength(mass[i], n);
        for j := 0 to n-1 do
        begin
            mass[i, j] := Random(6 * n + 1) - 3 * n;
            if (max < mass[i, j]) then
            begin
                max := mass[i, j];
                iMax := i;
                jMax := j;
            end;
            Write(mass[i, j]:3, '  ');
        end;
        WriteLn;
    end;
    WriteLn(iMax+1, #9, jMax+1);
    for j := 0 to n-1 do
        mass[iMax, j] := -mass[iMax, j];
    for i := 0 to n-1 do
        mass[i, jMax] := -mass[i, jMax];
    mass[iMax, jMax] := -mass[iMax, jMax]; //про сам максимальный элемент не было уточнений
    WriteLn;
    for i := 0 to n-1 do
    begin
        for j := 0 to n-1 do
            Write(mass[i, j]:3, '  ');
        WriteLn;
    end;
end.