Здравствуйте ,помогите пожалуйста в решении данной задачки
Дан символьный файл 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;
Большое спасибо