Wyświetlenie wybranych elementów listy jednokierunkowej

witam, potrzebuje pomocy, gdyz nie potrafie zmodyfikowac procedury, ktora mi wyswietli z listy tylko elementy ktore ja chce

PROCEDURE Wyswietl;
VAR
 wsk:wskaznik;
BEGIN
 IF pierwszy = NIL
  THEN Write('Lista jest pusta!')
  ELSE BEGIN
        wsk := pierwszy;
        Writeln(wsk^.liczba);
        WHILE wsk^.next <> NIL
         DO BEGIN
             wsk := wsk^.next;
             Writeln(wsk^.liczba);
            END;
       END;
 ReadKey;
END; 

type czyChce = function(wsk:wskaznik):Boolean;

procedure Wyswietl(wsk:pierwszy;fun:czyChce);
var wsk:wskaznik;
begin
  if pierwszy=nil then Write('Lista jest pusta!')
  else
  begin
    wsk:=pierwszy;
    while wsk<>nil do
    begin
      if fun(wsk) then Writeln(wsk^.liczba);
      wsk:=wsk^.next;
    end;
  end;
end;

@zupaaa - a które elementy chcesz?

Jeśli przeraża Cię przekazywanie funkcji jako argumentu, po pierwsze skorzystaj z konstrukcji jaką podał poprzednik (chodzi o pętlę While), a po drugie wstaw sobie w miejsce wywołania funkcji fun jakiś swój warunek, sprawdzający wartość z aktualnie trzymanego we wskaźniku węzła listy;

Zrób jak chcesz, byle byś zrozumiał jak to ma działać.