В произвольный текстовый файл добавить в конец первое и третье слово из исходного текста

var
  F_in,F_out: Text;
  Name,S: String;
 
begin
 Write('File1 name: ');
 Readln(Name);
 Assign(F1,Name);
 Append(F1);
 
 
 Write('File2 name: ');
 Readln(Name);
 Assign(F2,Name);
 Reset(F2);
 
 While not eof(F2) do
  begin
   Readln(F2,S);
   Writeln(F1,S);
  end;
 
 Close(F2);
 Close(F1);
end.

Procedure redact(Var f:text);
var
IOResult:integer;
        Begin 
            repeat
                Write(' Введите имя расширяемого файла: ');
                ReadLn(FileName);
                Assign(f,FileName);
                Append(f);
            until IOResult=0;
            while true do
                begin
                    WriteLn(' Введите строку (zzz-окончание ввода): ');
                    ReadLn(s);
                    if s='zzz'
                    then
                        begin
                            Close(f);
                            Exit
                        end;    
                    WriteLn(f,s)
                end
        End;