Дан многострочный текстовый файл слова разделены пробелами, сформировать новый файл с палиндромом строк первого файла

var i:integer;f,f1:text;S,s1:string;
begin
assign(f,'fff.txt');// создаем первый файл и записываем в ручную строки
rewrite(f);
for i:=1 to 5 do
begin
readln(S);write(f,s);writeln(f);
end;
close(f);
 
assign(f1,'ff1.txt');
rewrite(f1);
reset(f);
while not eof(f) do
begin
for i:=1 downto length(s) do begin
s1:=s;
write(f1,s1);
writeln(f1);
end;
end;
close(f1) ;
close(f);
 
reset(f1);
write('Второй файл');
while not eof(f1) do
begin
readln(f1);
writeln(f1,s1);
writeln(f1);
end;
close(f1);
end.

var i: integer;
    f, f1: text;
    s: string;
begin
  assign(f, 'c:\fff.txt');// создаем первый файл и записываем в ручную строки
  rewrite(f);
  writeln('Введите строки:');
  for i:=1 to 5 do
    begin
      readln(S); writeln(f, s)
    end;
  close(f);
 
  assign(f1, 'c:\ff1.txt');
  rewrite(f1);
  reset(f);
  while not eof(f) do
    begin
      readln(f, s);
      for i := length(s) downto 1 do write(f1, s[i]);
      writeln(f1);
    end;
  close(f1) ;
  close(f);
 
  reset(f1);
  writeln('Второй файл:');
  while not eof(f1) do
    begin
      readln(f1, s);
      writeln(s)
    end;
  close(f1);
  readln
end.