Работа с файлами

[KateMM]

Помогите написать программу.
Создать символьный файл F. Записать в файл G те символы файла F, которым в этом файле предшествует указанная буква.

[Stilet]

А язык то какой?

[KateMM]

язык Паскаль..

[Stilet]

var f,g:file of char;a,b:^char;i:integer;c:char;
begin
// Выделяем память для 100 символов
 getmem(a,100);
 // Формирум файл
 b:=a;for i:=1 to 100 do begin b^:=char(ord('A')+Random(30));inc(b);end;
 // Пишем в файл символы
 Assign(f,'d:\1\f.txt');rewrite(f);blockwrite(f,a^,100);reset(f);
 // Переоткрываем его и перечитываем
 blockread(f,a^,100);close(f);
 // Открывает второй файл
 Assign(g,'d:\1\g.txt');rewrite(g);
 // Это символ - опора
 c:='A';
 b:=a;
 // Проходим по символам из файла
 i:=1; while i<100 do begin
 // Если найдена опора
  if b^=c then begin
   inc(b);
   // пишем во второй файл следующий за ней
   write(g,b^);
   inc(i);
  end;
  inc(b);inc(i);
 end;
 // Закрываем файл
 close(g);
 // Приберись. IKEA
 FreeMem(a);
  { TODO -oUser -cConsole Main : Insert code here }
end.

Подойдеть?

[KateMM]

Спасибо! )