Определить, есть ли в двумерном массиве столбцы, удовлетворяющие заданным условиям

const
    ANSWER: Array[Boolean] Of String = ('Такого столбца нет', 'Такой столбец присутствует');
var
    ar: Array[Byte, Byte] Of ShortInt;
    i, j, n, m: Byte;
    flag: Boolean;
    b: LongInt;
begin
    {ввод размерности и генерация массива}
    repeat
        Write('n=');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('m=');
        ReadLn(m);
    until (m > 0);
    Randomize;
    WriteLn('Исходная матрица:');
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    {Задание А}
    j := 0;
    repeat
        i := 0;
        repeat
            flag := (ar[i, j] = 0);
            Inc(i);
        until ((i >= n) Or (Not flag));
        Inc(j);
    until ((j >= m) Or (flag));
    WriteLn('Задание А: ', ANSWER[flag]);
    {Задание Б}
    repeat
        Write('b(>=0)=');
        ReadLn(b);
    until (b >= 0);
    j := 0;
    repeat
        i := 0;
        repeat
            flag := ((ar[i, j] >= 0) And (ar[i, j] <= b));
            Inc(i);
        until ((i >= n) Or (Not flag));
        Inc(j);
    until ((j >= m) Or (flag));
    WriteLn('Задание Б: ', ANSWER[flag]);
end.