Определить номер первого из столбцов, содержащих хотя бы один нулевой элемент - Turbo Pascal

type
    TLine = Array[Byte] Of Integer;
    TArray = Array[Byte] Of TLine;
procedure PrintArray(const ar: TArray; const n, m: Byte);
var
    i, j: Byte;
begin
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
            Write(ar[i, j]:4);
        WriteLn;
    end;
    WriteLn;
end;
procedure GenerateArray(var ar: TArray; var n, m: Byte);
var
    i, j: Byte;
begin
    repeat
        Write('Input n (>0)=');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('Input m (>0)=');
        ReadLn(m);
    until (m > 0);
    for i := 0 to n - 1 do
        for j := 0 to m - 1 do
            ar[i, j] := Random(199) - 99;
    PrintArray(ar, n, m);
end;
function FindColumnWithZero(const ar: TArray; const n, m: Byte): Integer;
var
    Result: Integer; //удалить строку при ошибке повторного объявления
    i, j: Byte;
begin
    Result := -1;
    j := 0; i := 0;
    while ((j < m) And (Result = -1)) do
    begin
        while ((i < n) And (Result = -1)) do
        begin
            if (ar[i, j] = 0)
            then
                Result := j
            else
                Inc(i);
        end;
        Inc(j);
    end;
    FindColumnWithZero := Result;
end;
function SumNegative(const l: TLine; const m: Byte): Integer;
var
    Result: Integer; //удалить строку при ошибке повторного объявления
    j: Byte;
begin
    Result := 0;
    for j := 0 to m - 1 do
        if (l[j] < 0)
        then
            Inc(Result, l[j]);
    SumNegative := Result;
end;
procedure Sort(var ar: TArray; const n, m: Byte);
var
    i, j: Byte;
    sums: TLine;
    procedure SwapLines(var x, y: TLine; var xx, yy: Integer);
    var
        z: TLine;
        zz: Integer;
    begin
        z := x; zz := xx;
        x := y; xx := yy;
        y := z; yy := zz;
    end;
begin
    for i := 0 to n - 1 do
        sums[i] := SumNegative(ar[i], m);
    for i := 0 to n - 2 do
        for j := i + 1 to n - 1 do
            if (sums[i] < sums[j])
            then
                SwapLines(ar[i], ar[j], sums[i], sums[j]);
    PrintArray(ar, n, m);
end;
var
    ar: TArray;
    n, m: Byte;
    ans: Integer;
begin
    Randomize();
    GenerateArray(ar, n, m);
    ans := FindColumnWithZero(ar, n, m);
    if (ans <> -1)
    then
        WriteLn('First column with zero: ', ans)
    else
        WriteLn('No one zero element!');
    Sort(ar, n, m);
end.