Расположить столбцы матрицы в соответственности с ростом характеристик - Turbo Pascal

var
    a: Array[Byte, Byte] Of ShortInt;
    b: Array[Byte] Of Word;
    i, j, l, n, m: Byte;
    tempW: Word;
    tempS: ShortInt;
begin
    Randomize();
    repeat
        Write('Input n=');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('Input m=');
        ReadLn(m);
    until (m > 0);
    for j := 0 to m - 1 do
        b[j] := 0;
    WriteLn('Original array:');
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            a[i, j] := Random(199) - 99;
            Write(a[i, j]:4);
            if ((a[i, j] < 0) And Odd(a[i, j]))
            then
                Inc(b[j], Abs(a[i, j]));
        end;
        WriteLn;
    end;
    for l := 0 to m - 2 do
        for j := l + 1 to m - 1 do
            if (b[j] < b[l])
            then
            begin
                tempW := b[j];
                b[j] := b[l];
                b[l] := tempW;
                for i := 0 to n - 1 do
                begin
                    tempS := a[i, j];
                    a[i, j] := a[i, l];
                    a[i, l] := tempS;
                end;
            end;
    WriteLn;
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
            Write(a[i, j]:4);
        WriteLn;
    end;
end.