Программа с циклом Repeat . until для ввода символов - Turbo Pascal

Формулировка задачи:

Программа с циклом Repeat .. until для ввода символов.

uses Crt;
Var Bukva: Char;
begin
  repeat
    write('  Ввести  букву: ');
       ReadLn(bukva);
  until  bukva = 'f';
  WriteLn('  Ввод завершён.');
  ReadLn
end.

На выходе имеем:

Ввести букву:  r
Ввести букву:  g
Ввести букву:  f
Ввод завершён.

Как сделать такую же программу с циклом While.

uses Crt;
Var bukva, f: Char;
begin
ClrScr;
while bukva = 'f' do begin
   Write('  Ввести букву: ');
      ReadLn(bukva);
  end;
    WriteLn;
  WriteLn('  Ввод завершён.');
   ReadLn
end.

Как я не "мылился" – не получилось.

Решение задачи: «Программа с циклом Repeat . until для ввода символов»

Листинг программы

ClrScr; bukva := '*';

Объяснение кода листинга программы

ClrScr - очищает экран от предыдущей информации;
bukva - это переменная, которая содержит символ '*' и используется в дальнейшем цикле.