Розв’язок задачі з Абрамова №496а

Всі умови | Умова: Дано символьний файл f. Записати в файл g зі збереженням порядку проходження ті символи файлу ф яким в цьому файлі передує літера а. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №496)

program Pr496_1;
var
   c : char;
   f,g : file of char;
   t : boolean;
begin
   assign(f,'in');
   reset(f);
   assign(g,'out');
   rewrite(g);
   t := false;
   while not eof(f) do
   begin
      if t then write(g,c);
         read(f,c);
      if c = 'a' then t := true;
   end;
   close(f);
   close(g);
end.