Program listaprg;
uses listau;
Type
  Ttul=function(x:integer):boolean;
  {pl.: kell "$f+"
       Function poz(i:integer):boolean;
       Proc eldontes (.., tul:Ttul);

       eldontes (...poz)
       vegere "$f-"}
Var
 lista,kiv:Tlista;
 n:integer;

Procedure beolvasas(var lista:Tlista);
 var i:integer;
     elem:telem;
 Begin
 Write('Elemszam - a lista hossza: ');
 Readln(n);
 lista.ures;
 For i:=1 to n do
  Begin
   Write('Az ',i,'. elem: ');
   Readln(elem);
   lista.beszurmoge(elem); {nem kell kovetkezore}
  End;
 End;

Function eldont(x:Telem):boolean; {pozitiv}
 Begin
  If x>=0 then eldont:=true;
 End;


Procedure kivalogatas(var lista:Tlista; var kiv:Tlista);

Procedure kiiras(lista:Tlista);
 Begin
  lista.elejere;
  While (not lista.vege_e) do
    Begin
     Writeln('lista.elemertek ',lista.elemertek);
     lista.kovetkezore;
    End;
  Writeln('lista.elemertek ',lista.elemertek);
 End;

BEGIN
{$f+}
Beolvasas(lista);
Kivalogatas(lista,kiv);
kiiras(lista);
{$f-}
END.