procedure UtworzListe;
var
 biez: 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;
 biez^.nast:= glowa;
 glowa:= biez;
 end;
 close(plik);
end;