Algorytmy i złożoność - problem

Bardzo prosił bym o pomoc w rozwiązaniu zadania z trzema podpunktami, rozwiązanie moze byc w pseudo jezyku, pascalu, potrzebuje algorytm, lub jakie kolwiek informacje które pomoga w jego rozwiązaniu. Z góry dziękuje za każdą pomoc. Dodam tylko ze podobno nalezy skorzystac z tablic?!:)

1. Sprawdź czy w ciągu liczb dodatnich zakonczonych wartością 0 istanieja wartości przekraczające daną wartość P

2. Ile jest takich liczb?

3. Znajdź wartość minimalną w ciągu liczb dodatnich zakończonych wartością 0.
   Jeszcze raz dziękuje za każdą udzielona pomoc, pozdrawiam
   cojoten

var
  Tab: array of Cardinal;
  x,i, min: cardinal;
  wieksze: boolean = false;
  wieksze_ilosc: cardinal; 
const
  P = 45; //jakasliczba
begin
//odczyt
  Repeat
    Read(x);
    If x<>0 then
    begin
      SetLength(Tab,(Length(Tab)+1);
      Read( Tab[High(Tab)] );
    end;
  Until x=0;
// 1,2 i 3
  min:=0;
  For i:=0 to High(Tab) do
  begin
    If Tab[i] > P then
    begin
      wieksze := true;
      inc(wieksze_ilosc);
    end;

    If Tab[i]>min then min:=Tab[i];
  end;

To w sumie tyle. Nie wiem czy na pewno działa, bo pisałem z głowy.

Wielkie dzięki, nawet jezeli nie bedzie działał to mam jakis punkt zaczepienia,
pozdrawiam