program project1;

type
 wsk = ^elem;
 elem = record
 s: string;
 nast: wsk;
 end;

 VAR
  glowa:wsk;

procedure UtworzListe;
var
 biez, kon: wsk;
 plik: text;
 s: string;
begin
 assign(plik,'project1.lpr');
 reset(plik);

 glowa := nil;
 kon := nil;

 while not Eof(plik) do
 begin
 readln(plik,s);
 new(biez);

 biez^.s := s;

 if glowa = nil then
   glowa := biez
 else
   kon^.nast := biez;

 kon := biez;

 end;

 close(plik);
end;


procedure Drukuj;

var
 biez:wsk;

 begin
   biez:=glowa;
   while(biez<>NIL) do
   begin
   writeln(biez^.s);
   biez:=biez^.nast;
   end;
   end;

 function Szukaj(nazwa : string) : wsk;
var
  biez:wsk;
  jest:boolean;

begin
 jest:=false;
 biez:=glowa;

 while (biez <> NIL) and (not jest) do
 begin
         if (biez^.s = nazwa) then
            jest:=true
         else
             biez:=biez^.nast;
 end;

 if (jest) then
    Szukaj:=biez
 else
     Szukaj:=NIL;
end;

function znajdywanie:integer;

var
    i : integer;
    s:string;
    biez:wsk;
    begin
    biez:=glowa;
   while(biez<>NIL) do
   begin
   if (i>0) then
      i:=Pos('VAR', biez^.s);
      biez:=biez^.nast;
      writeln(i);
   end;
   end;

 begin
   UtworzListe;
   znajdywanie;
   Drukuj;
   readln;
 end.