function istnieje(T:tab):Boolean;
var l,p,m :Integer;
begin
    istnieje := false;
    if N >= 2 then
    begin
        if N = 2 then
        begin
            if A[1] = A[2] then istnieje := true;
        end
        else begin
            while (l < p) and (not istnieje) do
            begin
                m := (l + p) div 2;
                if A[m + 1] - A[m] = 0 then istnieje := true
                else if A[m + 1] - A[m] > 0 then p := m
                else l := m;
            end;
        end;
    end;
end;