program soubor;

var
   slovo:string;
   file:text;
   i,pocet:integer;

begin
 assign(file,'words.dat');
 reset(file);
 readln(file,pocet);
 writeln('Slov: ',pocet); 
 for i:= 1 to pocet do
 begin
  readln(file,slovo);
  writeln(slovo);
 end;
 close(file);
end.
