Yazı 0.5 saniyede bir renk değiştirsin ister misiniz?

uses crt;
var
a:integer;
begin
clrscr;
for a:=1 to 500 do begin
gotoxy(30,8);
textcolor(a);
writeln('Yazmak İstediginiz Yazi');
delay(500);
(*Delay Degerini KAfanıza Göre DeğiştirebiLirsiniz*)
end;
readln;
end.
oğuz eroğlu/ted zonguldak koleji vakfı özel ilköğretim okulu 8/a
oguz_eroglu67@hotmail.co.uk