Модуль Crt

Delay - Приостанавливает выполнение программы на заданное число миллисекунд (пауза, задержка).
Объявление:
Procedure Delay(MS : Word);
Режим:
Real, Protected
Замечания:

Параметр MS - число миллисекунд.

Время, на которое процедура Delay задерживает выполнение программы является приближенным значением параметра MS, так что задержка не будет длиться ровно MS миллисекунд.

Например, Delay(1000) не будет задерживать программу ровно на 1 секунду.
Пример: view source

print
?01 Uses Crt;
02 Var i,j:Integer;
03
04 Begin
05 For i:=1 to 10 do
06 Begin
07 ClrScr;
08 Write('LOADING');
09 For j:=1 to 5 do
10 Begin
11 Write('.');
12 Delay(50000);
13 End;
14 Delay(30000);
15 End;
16 ClrScr;
17 WriteLn('Press any key to exit');
18 Repeat Until KeyPressed
19 End.