{* Задача 261 *}

Unit ZADACH261;
Interface
Implementation
Begin
 writeln('Дан символьный файл f. Записать в файл g с сохранением порядка следования те символы файла f вслед за которым в этом файле идет буква а ');
End.

Program lr3;

Uses zadach261.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  i : integer;
  k : integer;
  p : integer;
  m : char;
  n : char;
  f : ff;
  g : ff;
Begin
  clrscr; {* Очищаем экран *}
  assign(f, 'c:char.dat'); {* Связывание f с файлом 'c:char.dat' *}
  assign(g, 'c:char.txt'); {* Привязка переменной g к файлу 'c:char.txt' *}
  rewrite(f); {* Запись в файл через переменную f *}
  writeln('Введите максимальный размер файла:');
  readln(p);
  For k := 1 To p Do {* Цикл для k => [1 .. p] *}
  Begin
    read(m);
    write(f, m);
  End;
  close(f); {* Закрыть файл f *}
  writeln('Содержимое выходного файла :');
  reset(f); {* Чтение из файла через переменную f *}
  rewrite(g); {* Запись в файл через переменную g *}
  For k := 1 To p Do {* Переменная k увеличивается с 1 до p *}
  Begin
    n := m;
    read(f, m);
    If (m = 'а') Then
    Begin
      write(g, n);
      write(n);
    End;
    
  End;
  close(f); {* Файл f будет закрыт *}
  close(g); {* Закрыть файл g *}
End.