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,'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;
 biez^.nast := kon;
 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;

 begin
   UtworzListe;
   Drukuj;
   readln;
 end.