Работа с файлами Опции

[klem4]

Есть типизированный файл f of char , заполненный символами, во второй файл
g в него нужно записать , сохраняя исходную последоватльность те символы файла f, которые идут перед символом 'a'

заполнения файла f

procedure FillFile(var FF:file of char);
var
   ch:char;
begin
   repeat
       ch:=readkey;
       writeln(ch);
       if ch in [#65..#97] then
        write(f,ch);
   until ch=#13;
end;

и процедура, которая не работает, если ввести в файл f символы sa
то после прочтения s возвращает false в проверке if not Eof(FF) then

тоесть перед прочтением символа 'a'. Это правильно ?

procedure ChekFile2(var FF,GG:file of char);
var
   old,next:char;
begin
   while not(Eof(FF)) do begin
       read(FF,old);
       if not Eof(FF) then
        read(FF,next);
       if next='a' then
        write(GG,old);
   end;
end;