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', s);
   end;
   end;