rogram Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
var s:string;
    i,n,k:Integer;
    f:TextFile;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  Writeln('введи кол-во слов в кодировочной книге');
  read(n);
//---------------------------------------------
 Assign(f,'Кодировочная книга.txt');
 Rewrite(f);
 write('введи ',n,' слов');
 k:=0;
 repeat
   Readln(s);
   Write(f,s);
   k:=k+1;
 until k=n;
 writeln('Исходный файл:');
 reset(f);
while not eof(f) do
 begin
  read(f,s);
  write(s,' ');
 end;
 Close(f);
//-------------------------------------------
writeln('Для выхода нажмите enter')
readln
end.