[Free Pascal] Equivalent de Delay en Free Pascal ?

la fonction "delay" de l'unité "crt" ne fonctionne pas avec freepascal.

qu'elle est la fonction equivalente de "delay" en free pascal?

Code:

---

1 2 3 4 5 6 7 8 9

program attends; uses windows; begin writeln('message1'); Sleep (5000); writeln ('message2'); readln; end.

---

Merci