Keypressed в цикле, Как сменить значение keypressed Опции

[Soxatyi]

Такая проблема. Необходимо вставить паузу в цикл, т.е. если во время выполнения цикла я нажал любую клавишу, то программа останавливается на 2 сек., а потом цикл продолжается. Приведу простой ппример:

program delay_key;
var x:integer;
begin
x:=0;
repeat;
x:=x+1; 
writeln(x);
delay(1000);
if keypressed then delay(10000);
until(x=30);
readln;
end.

Здесь такая бага: после одного нажатия клавиши программа дальше всегда вставляет паузу, т.е. сменив значение keypressed на TRUE, она при следующем проходе цикла так и оставляет это значение. Нужно, чтобы от одного нажатия пауза вставлялась один раз. Если я потом опять нажал на кнопку, то пауза опять вставится, и т.д.
По логике, в if..then после длинного delay надо впихнуть что-то вроде keypressed:=FALSE (ибо keypressed суть boolean), но выдается ошибка 122.
Что делать?

[pasman]

а мона так:

program delay_key;
   var x:integer;
   kl:char;
begin
   x:=0;
   kl:=#0;
   repeat;
      x:=x+1; 
      writeln(x);
      delay(1000);
      if keypressed then kl:=readkey;
      if kl<>#0 then delay(10000);
   until(x=30);
   readln;
end.

Сообщение отредактировано: volvo - 15.10.2005 18:54