Ragazzi non so che dirvi, ma non mi funziona! Vi posto il codice

program PROVA;

uses
crt;
begin
clrscr;
textcolor(Green);
write ('S');
delay (1000);
write ('T');
delay (1000);
write ('R');
delay (1000);
write ('I');
delay (1000);
write ('N');
delay (1000);
write ('G');
delay (1000);
write ('A');


repeat until keypressed;

end.

Che ottengo? STRINGA, ma non scrive le lettere a distanza di un secondo l'una dall'altra!

Dove sbaglio?? :master:

Grazie!