работа со строками - удалить второе слово

[AlexP777]

задание

В заданной строке символов, состоящей из слов, разделенных пробелами удалить второе слово.

с одной строкой работает отлично(вводим с клавы)

program lab8var10;
var s: string;
    i,nn,d: integer;
 
begin
write('vvedite stroku: ');
readln(s);
nn:=pos(' ',s)+1;
i:=nn;
while s[i]<>' ' do
      inc(i);
d:=i-nn;
delete(s,nn,d);
write('Result: ',s);
readln;
end.

но с многострочным файлом нет(например, 4 строки)

program lab8var10;
var f1,f2:text;
    s: string;
    i,nn,d: integer;
 
begin
assign(f1,'D:\1.txt');
assign(f2,'D:\2.txt');
reset(f1);
rewrite(f2);

while not eof(f1) do
begin
read(f1,s);
nn:=pos(' ',s)+1;
i:=nn;
while s[i]<>' ' do
      inc(i);
d:=i-nn;
delete(s,nn,d);
write(f2,s);
end;
close(f1);
close(f2)
end.

говорит ошибка в Program1.pas(18) : Ошибка времени выполнения: Индекс выходит за ганицы массива т.е. в строке while s[i]<>' ' do и становится в ее начало курсор.

пытался заключить в операторные скобки, но результата не дало.

[AlexP777]

ошибка появляется, когда ставлю запись результата в файл
write(f2,s); если поставить просто вывод на экран, то работает норм.

[AlexP777]

в течении файла 1 с данными надо было писать не read, а readln т.к. файл многострочный

вот рабочий вариант, вдруг кому надо

program lab9var10;
var f1,f2:text;
    s: string;
    i,nn,d: integer;
 
begin
assign(f1,'D:\1.txt');
assign(f2,'D:\2.txt');
reset(f1);
rewrite(f2);

while not eof(f1) do
begin
readln(f1,s);
nn:=pos(' ',s)+1;
i:=nn;
while s[i]<>' ' do
      inc(i);
d:=i-nn;
delete(s,nn,d);
writeln(f2,s);
end;
close(f1);
close(f2)
end.