Выход из цикла нажатием ESC

[Banderas123]

Ко мне обратился друг, попросил решить задачку...

Задача:
Надо ввести первую букву реки, а программа выводит её полное название, после чего опять вводишь букву и все повторяется, пока не захочется выйти из программы.

Я решил таким способом:

program rivers;
uses CRT;
var
x, ESC : char;
begin
ClrScr;
repeat
  readln(x);
    case x of
        'A' : writeln('Amazonka');
        'B' : writeln('Babaika');
        'C' : writeln('Custerna');
        else writeln('Sho tu vvodush???')
    end;
    ESC:=readkey;
until ESC = chr(27);
end.

Но прикол в том, что после того как readln(x) запросил ввести букву, и после выполнение case, начинает свой запрос на ввод буквы readkey, что приводит к небольшой путанине.

Как сделать, что бы можно было выйти из цикла нажатием клавиши ESC?

[evg_m]

repeat
x:=readkey;
case x of
...
#27: {ESC} break;
end;
until true

[Banderas123]

Спасибо =)
Только что сам напечатал вот так:

program C;
uses CRT;
var
x, ESC : char;
begin
ClrScr;
repeat
    x:=readkey;
    case x of
        'A' : writeln(x, '- > Amazonka');
        'B' : writeln(x, '-> Babaika');
        'C' : writeln(x, '->Custerna');
        else writeln('Sho tu vvodush???')
    end;
until x = chr(27);
end.