Contador de números (Pascal) - efeito Matrix

tava mexendo aqui, olhe só

program numeros;

uses crt;
var a:integer;

begin
clrscr;
Textcolor(green);
a:=1;

repeat

for a:=1 to 100 do
begin
write(a);
textcolor(a);
textbackground(a - 1);

end;

until a>=1000;

readkey;
end.