Двумерный массив: поменять местами столбец с минимальной суммой элементов столбца с первым столбцом массива - Pascal - Ответ 7518093

type
    TLine = Array[Byte] Of ShortInt;
var
    a: Array[Byte] Of TLine;
    tempLine: TLine;
    sum, max: Integer;
    i, j, n, m, maxID: Byte;
begin
    {заполнение и вывод исходного массива массива}
    repeat
        Write('n=');
        ReadLn(n);
    until (n > 0); Dec(n);
    repeat
        Write('m=');
        ReadLn(m);
    until (m > 0); Dec(m);
    Randomize;
    for i := 0 to n do
    begin
        for j := 0 to m do
        begin
            a[j, i] := Random(199) - 99;
            Write(a[j, i]:4);
        end;
        WriteLn;
    end;
    {поиск столбца с минимальной суммой}
    max := 32767; maxID := 0;
    for j := 0 to m do
    begin
        sum := 0;
        for i := 0 to n do
            Inc(sum, a[j, i]);
        if (sum < max)
        then
        begin
            max := sum ;
            maxID := j;
        end;
    end;
    {замена}
    tempLine := a[0];
    a[0] := a[maxID];
    a[maxID] := tempLine;
    {вывод массива после замены}
    WriteLn; WriteLn;
    for i := 0 to n do
    begin
        for j := 0 to m do
            Write(a[j, i]:4);
        WriteLn;
    end;
end.