В матрице X найти строку с минимальной и столбец с максимальной суммой элементов

var
    x, y : Array[1..100, 1..100] Of ShortInt;
    i, j, n, m, iMin, jMax, iR, jR : Byte;
    max, min, sum : Integer;
begin
    Randomize;
    repeat
        Write('n=');
        ReadLn(n);
    until (n <= 100);
    repeat
        Write('m=');
        ReadLn(m);
    until (m <= 100);
    min := 32767;
    WriteLn('Исходный массив');
    for i := 1 to n do
    begin
        sum := 0;
        for j := 1 to m do
        begin
            x[i, j] := Random(199) - 99;
            Write(x[i, j]:4);
            sum := sum + x[i, j];
        end;
        if (min > sum)
        then
        begin
            min := sum;
            iMin := i;
        end;
        WriteLn;
    end;
    max := -32768;
    for j := 1 to m do
    begin
        sum := 0;
        for i := 1 to n do
            sum := sum + x[i, j];
        if (max < sum)
        then
        begin
            max := sum;
            jMax := j;
        end;
    end;
    WriteLn;
    WriteLn('minID=', iMin, '    maxID=', jMax);
    i := 1; j := 1; iR := 0;
    WriteLn;
    for i := 1 to n do
        if (i = iMin)
        then
            Inc(iR)
        else
        begin
            jR := 0;
            for j := 1 to m do
                if (j = jMax) then
                    Inc(jR)
                else
                begin
                    y[i - iR, j - jR] := x[i, j];
                    Write(y[i - iR, j - jR]:4);
                end;
            WriteLn;
        end;
end.