2.4.7. : fill_file

program hash;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  f : text;
  fileName, s: string;
  n, i : integer;

begin
  fileName := 'data.txt';
  assign(f, fileName);
  rewrite(f);

  write('Write down number of objects : ');
  readln(n);
  writeln('<name> <word> <number_of_words>');

  for i := 1 to n do
  begin
    readln(s);
    writeln(f, s);
  end;

  close(f);
  readln;

end.