Запись символов из одного файла в другой.. Опции

[Tucn]

Здравствуйте ,помогите пожалуйста в решении данной задачки
Дан символьный файл f. Записать в файл g с сохраненным порядком следования те символы файла f, вслед за которым в этом файле идет буква А.

[Lapp]

Дан символьный файл f. Записать в файл g с сохраненным порядком следования те символы файла f, вслед за которым в этом файле идет буква А.

Вот как-то так можно:

Read(F,c);
while not Eof(F) do begin
  Read(F,d);
  if UpCase(d)='A' then Write(g,c);
  c:=d
end;

[Tucn]

Большое спасибо