Есть ли в матрице столбец, в котором нет элементов, меньше заданного G?

var
    p, l, i, j, count : Byte;
    g : ShortInt;
    state : Boolean;
    h : Array[1..100, 1..100] Of ShortInt;
    res : Array[1..100] Of Byte;
begin
    Randomize;
    repeat
        Write('p=');
        ReadLn(p);
    until (p <= 100);
    repeat
        Write('l=');
        ReadLn(l);
    until (l <= 100);
    Write('g='); ReadLn(g);
    //генерируем массив
    for i := 1 to p do
    begin
        for j := 1 to l do
        begin
            h[i, j] := Random(199) - 99;
            Write(h[i, j]:6);
        end;
        WriteLn;
    end;
    WriteLn; count := 0;
    for j := 1 to l do
    begin
        state := True;
        for i := 1 to p do
            if (h[i, j] < g) then
            begin
                state := False;
                Break;
            end;
        if state then
        begin
            Inc(count);
            res[count] := j;
        end;
    end;
    if (count = 0) then
        WriteLn('No one!')
    else
        for i := 1 to count do
            Write(res[i], ' ');
end.