Ошибка окончания ввода информации в текстовый файл - Free Pascal

пример проги взят из учебника "Turbo Pascal учебный курс 7.0" стр.124 листинг 6.4

 assign( f , 'string.txt');
  rewrite( f );
 while not eof do begin
  readln( s );
  writeln( f , s );
 end;//while 
close( f );

чтобы закончить ввод текста предлагается клик Ctrl + Z затем Enter после ввода инфы и Ctrl + Z ,Enter ввод не прекращается ...

Листинг программы

  Assign(input,''); Reset(input);
  { стандартное использование ввода/ввода }
  AssignCrt(input);
  { использование ввода/вывода через Crt }

Объяснение кода листинга программы

Assign(input, ''); - присваивает переменной input пустую строку
Reset(input); - сбрасывает позицию ввода в начало файла
AssignCrt(input); - присваивает переменной input дескриптор стандартного ввода
Стандартное использование ввода/вывода
Использование ввода/вывода через Crt