Работа с файлами!!! Очень нужно!!

[F(r)an!k]

дан символьный файл f. Записать в файл g с сохранением порядка следования те символы файла f:
a) которым в этом файле предшествует буква а;
б) вслед за которым в этом файле идет буква а.

Ребят, уже весь инет перерыл, сижу второй день ничего сдалать не могу!! нужно ООЧЕНЬ!! Помогите, пожалуйста(((

[Stilet]

уже весь инет перерыл

Ну а наработки какие-то делал?
Показывай не стесняйся, ато мало ли как вас учат...

[LeninNT]

Напишу за символическую плату

[F(r)an!k]

вот. но это не работает..

var f,g:file of string;
    i,a,pos: integer;
    s,frag: string;
begin
s:= 'o o o f a j j g j j uj a i o m b';
clrscr;
randomize;
assign(f,'filef');
rewrite(f);
assign(g,'fileg');
rewrite(g);
{создание 1 файла}
write(f,s);
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,s);
  write(s);
 end;
writeln;
frag:='a';
pos:=0;
reset(f);
while not eof(f) do
 begin
  seek(f,pos);
  read(frag);
 end;
writeln;
close(f);
end.

[Stilet]

Вот

var f,g:file of char;
    i,a,pos: integer;
    s,frag: char;
begin
assign(f,'c:\temp\filef');
reset(f);
assign(g,'c:\temp\fileg');
rewrite(g);
{создание 1 файла}
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,frag);
  write(frag);
 end;
writeln;
reset(f);
while not eof(f) do
 begin
  read(f,frag);
  if frag='a' then begin
   read(f,frag);write(g,frag);
  end;
 end;
writeln;
close(f);Close(g);
readln;
end.

Поправил с учетом что исходный файл уже существует