Программа, которая запрашивает символы и записывает их в файл до пары одинаковых символов ( Turbo Pascal )

[bikmai4ik]

Программа, которая запрашивает символы и записывает их в файл с именем «f.f» до тех пор, пока не будет введено последовательно два одинаковых символа.

[ZX Spectrum-128]

А в чем проблема? В записи в файл? Или как выяснить, что символы одинаковые
?

[bikmai4ik]

нужен код этой программы

[ZX Spectrum-128]

var
  current,prev:char;
  f:file of char;
begin
  assign(f,'f.txt');
  rewrite(f);
  readln(current);
  repeat
    write(f,current);
    prev:=current;
    readln(current);
  until current=prev;
  close(f);
end.

[bikmai4ik]

спасибо огромное