как при сохранении сделть так, чтобы из БД сохранились только те слова из списка,которые начинаются с буквы "Я". изменения нужно произвести в этом фрагменте программы:

procedure TForm1.Action8Execute(Sender: TObject); // сохранение базы данных в файле
var f:file of data; // типизированный файл
   i:integer; // счётчик для цикла
begin
if savedialog1.execute then // если имя файла для сохранения базы данных было выбрано
begin
assignfile(f,savedialog1.filename); // связываем файловую переменную с выбран-ным файлом
rewrite(f); // открываем файл на запись
for i:=0 to high(database) do // цикл по всей базе данных
 write(f,database[i]); // записываем в файл последовательно все записи
closefile(f); // закрываем файл
modified:=false; // пока в базе данных изменений не было
end;
end;

мб другой вариант?

> мб другой вариант?

мб, всё мб

В программе это открывать тогда, когда открывается файл на запись?

> В программе это открывать тогда, когда открывается файл
> на запись?


Нет, только перед зачитыванием