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;