не могу найти ошибку в задаче

Program FileWrite;
uses crt; {или tpcrt или убрать textattr:=$1b; Clrscr; из программы}
Var s: Integer; {строка для хранения введенного текста}
   fi1: Text; {fi1 - переменная для работы с файлом (файловая переменная)}
Begin
clrscr; {очистка экрана}
 
Assign(fi1,'Mytext.txt'); {связываем fi1 с файлом 'Mytext.txt'}
Rewrite(fi1); {Создаем на диске пустой файл Mytext.txt, готовим его для записи}
for s:=1 to 4 do
 {цикл для записи в файл. Выполняется, если s не пустая}
 { т е используем пустую строку как признак конца записи текста
 для ввода пустой строки просто нажать Enter.}
 begin writeln(fi1,s);{записываем в файл строку s}
  writeln('Введите 4 строки текста для записи в файл ');{это выводится на экран}
  Readln(s);{Строку текста, набранную клавиатурой, сохраняем в переменной s }
  writeln(fi1,s); {записываем строки s в файл }
 end; {здесь кончается цикл. Повторяем  цикл - если s<>''
(т е Переходим на строку while )}
 Close(fi1); {Закрываем файл. На этом работа заканчивается}
End.

Program FileWrite;
uses crt; {или tpcrt или убрать textattr:=$1b; Clrscr; из программы}
Var i: Integer; {строка для хранения введенного текста}
     fi1: Text; {fi1 - переменная для работы с файлом (файловая переменная)}
     s: string;
Begin
 clrscr; {очистка экрана}
 Assign(fi1,'Mytext.txt'); {связываем fi1 с файлом 'Mytext.txt'}
 Rewrite(fi1); {Создаем на диске пустой файл Mytext.txt, готовим его для записи}
 for i:=1 to 4 do
{цикл для записи в файл. Выполняется, если s не пустая}
{ т е используем пустую строку как признак конца записи текста
для ввода пустой строки просто нажать Enter.}
  begin 
  { writeln(fi1,s);записываем в файл строку s}
   writeln('Введите 4 строки текста для записи в файл ');{это выводится на экран}
   Readln(s);{Строку текста, набранную клавиатурой, сохраняем в переменной s }
   writeln(fi1,s); {записываем строки s в файл }
 end; {здесь кончается цикл. Повторяем цикл - если s<>''
(т е Переходим на строку while )}
Close(fi1); {Закрываем файл. На этом работа заканчивается}
End.