program test; var a:integer; begin for a:=1 to 10 do begin drawText(' ',0, 0); drawText(''+a,0, 0); repaint; delay(1000); end; end.