Текстовые файлы. Строки., Где же ошибка? =( . Помогите. Опции

[Nikeль]

Здравствуйте. Подскажите пожалуйста.
Вот такое задание:
В текстовом файле F1.txt задана последовательность символов. Создать текстовой файл F2.txt, из
тех символов этой последовальтености,которые являются буквами латинсого алфавита.
Вот что я написал.

Код

uses
  SysUtils;

procedure mypro(const s:string;var str:string);
var i:byte;
begin
  str:='';
  for i:=1 to length(s) do
    if (s[i]>='a') and (s[i]<='z') then str:=str+s[i];
end;

var f1,f2 : textfile;
    s,str : string;
begin
  assign(f1,'F1.txt');
  reset(f1);
  while not eof(f1) do
  begin
    readln(f1,s);
    mypro(s,str);
    writeln(str);
  end;

  assign(f2,'F2.txt');
  Rewrite(f2,'F2.txt');
  writeln(f2,str);
  closefile(f1);
  closefile(f2);
  readln;
end.

В каталоге уже лежит файт F1.txt с данными:
qwert1234вава
5656rrr

И создаётся файл F2.txt ,но уже:
rrr


То есть не получается записать все строки в F2. Хотя на экран выводится правильный результат. В чём проблема. Что нужно дописать или изменить? Заранее спасибо!!!

[volvo]

Ну, правильно... Записывать строку в выходной файл надо в цикле:

  assign(f1,'F1.txt'); reset(f1);
  assign(f2,'F2.txt'); Rewrite(f2,'F2.txt');

  while not eof(f1) do
  begin
    readln(f1,s);
    mypro(s,str);
    writeln(str);
    writeln(f2,str); { <--- Здесь !!! }
  end;

  closefile(f1);
  closefile(f2);

[Nikeль]

Работает!!! Спасибо большое.