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;