Сделать так, чтобы программа на заканчивалась

[aleko05]

Попытался написать программу-игру "орел или решка".
Работает, но каждый раз приходится заново её запускать, чтобы узнать новый результат. Как сделать так, чтобы, например, при нажатии клавиши "Enter", программа повторялась, пока я сам не захочу её завершить?

program orel_reshka;
uses crt;
var a:integer;
begin
     clrscr;
     randomize;
     a:=random(2);
     begin
     if a=0 then writeln ('Орел')
        else writeln ('Решка');
     end;
end.

[studen]

repeat
??????
readkey(c);
until c=#27; {escape, пробел #32, enter #13}

надо объявить только c: char;
где знаки вопроса, там будет твой код;
надеюсь, все будет работать

[aleko05]

Попробовал.

program orel_reshka;
uses crt;
var a:integer;
     c:char;
begin
     repeat
     clrscr;
     randomize;
     a:=random(2);
     begin
     if a=0 then writeln ('Орел')
        else writeln ('Решка');
     end;
     readkey(c);
until c=#27;
end.

Выбивает ошибку при компиляции "Wrong number of parameters specified for cal to "Readkey"

[kventin_zhuk]

подключи модуль Crt и в конце программы

repeat
until keypressed

[kventin_zhuk]

Сообщение от studen

repeat
??????
readkey(c);
until c=#27; {escape, пробел #32, enter #13}

надо объявить только c: char;
где знаки вопроса, там будет твой код;
надеюсь, все будет работать

Скорее вот так:

repeat c:=readkey;
until c=#27

[aleko05]

Сообщение от kventin_zhuk

Скорее вот так:

repeat c:=readkey;
until c=#27

большое спасибо, все заработало

[Sciv]

Скорее вот так:
Код:

repeat c:=readkey;
until c=#27

Тогда уж так:

repeat 
until readkey=#27