Всі умови | Умова: Дано символьний файл 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.