procedure UtworzListe;
var
 biez, kon: wsk;
 plik: text;
 s: string;
begin
 assign(plik,'plik.txt');
 reset(plik);
 glowa:=NIL;
 while not Eof(plik) do
 begin
 readln(plik,s);
 new(biez);
 biez^.s:= s;
 if (glowa=nil) then
 glowa:=biez;
 kon:=biez;
 end;
 close(plik);
end;