Pascal ABC, нужна помощь в написании программы

[селин]

Pascal ABC, нужна помощь в написании программы

написать программу, которая выводит сообщения "Нажмите клавишу в течение секунды" через случайные времени, ожидает нажатие 1 секунды и подсчитывает количество успешных нажатий.
program soobsh;

uses crt;
var
n, i, s: integer;

begin
n := 0;
for i := 1 to 20 do
begin
writeln('Нажмите клавишу в течение секунды');

s:=1000;
delay(s);
if KeyPressed then n := n + 1;
writeln('количество нажатий = ', n);
delay(1000);
end;

end.
Не получается задать интервал времени и подсчитывать

 

[AlexZir]

Функция Delay() в этой реализации языка отсутствует.
Для реализации паузы указанной длительности (в миллисекундах) используйте процедуру Sleep из библиотеки System.

 

[Vladimir_S]

написать программу, которая выводит сообщения "Нажмите клавишу в течение секунды" через случайные времени, ожидает нажатие 1 секунды и подсчитывает количество успешных нажатий.

К сожалению, эту дрянь по имени АВС у себя не держу, а вот на Turbo - пожалуйста:

uses crt;
var
 i,m,interval,time:integer;

begin
 Randomize;
 m:=0;
 for i:=1 to 10 do
  begin
   interval:=Random(5000);
   delay(interval);
   writeln('Press a key during 1 sec');
   time:=0;
   repeat
    time:=time+10;
    delay(10);
    if KeyPressed then m:=m+1;
   until KeyPressed or (time=1000);
   if KeyPressed then ReadKey;
  end;
 Writeln('Key was pressed ',m,' times');
 Readln
end.

 

[селин]

Спасибо за помощь!