Записать в файл слова из текста, считанного из первого файла, которые начинаются и заканчиваются заданными буквами (Паскаль)

[makgs123]

Здравствуйте, мой вопрос не займет много времени.
условие:записать в файл слова из текста, считанного из первого файла, которые начинаются и заканчиваются буквами(а.б.в.д.е.и.м.о.п.я) (любой из списка начинаются и любой из списка заканчиваются)
всё работает. никаких ошибок. но в файл не записывает. Помогите пожалуйста =(

uses crt;
var f_in,f_out : text;
    s,str:string;
    i,j:integer;
    q:set of char;
begin
  assign(f_in,'D:\f_in.txt');
  assign(f_out,'D:\f_out.txt');
  reset(f_in);
  rewrite(f_out);
  readln(f_in,s);
  close(f_in);
  q:=['à','á','â','ä','å','è','ì','î','ï','ÿ'];
      for i:=1 to Length(s) do
      begin
      str:='';
      if (s[i]=' ') then
      begin
      inc(i);
      if s[i] in q then
      begin
      repeat
      begin
      str:=str+s[i];
      inc(i);
      end;
      until (i=length(s))or(s[i]=' ');
      writeln(str);
      if str[i-1] in q then writeln(f_out,str);       {записываю слова этой строчкой}
      end;
      i:=i-1;
      end;
      end;
  close(f_out);
end.

________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.


2) Код нужно обязательно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.