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

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

program Pr496_2;
var
   i,k,p:integer;
   m,n:char;
   f,g:ff;
begin
   assign(f,'c:\char.dat');
   assign(g,'c:\char.txt');

   {create f}   
   rewrite(f);
   writeln('Write max file length:');
   readln(p);
   for k := 1 to p do
   begin
      read(m);
      write(f, m);
   end;
   close(f);

   {main}
   reset(f);
   rewrite(g);
   while (not eof(f)) do
   begin
      n := m;
      read(f, m);
      if (m = 'а') then
      begin
         write(g,n);
         write(n);
      end;
   end;
   close(f);
   close(g);
end.