Программа в Паскале "Эффект матрицы".Помогите заменить символы ** 0 и 1 и сделать их не...

Question

Программа в Паскале "Эффект матрицы".Помогите заменить символы на 0 и 1 и сделать их не голубыми,а зелеными на черном фоне.
Uses crt;
var s,i,x,y,D,n: integer;
r: real;
begin
clrscr;
textbackground(black);
x:=1; y:=1;
TextColor(green);
writeln(' нажмите любую клавишу...');
readkey;
clrscr;
REPEAT
textattr:=1;
r:=48;
while r<=128 do <br>r:=r+0.001;
Randomize;
N:=random(9);
for I:=1 to N do begin
d:=random(70);
If d<10 then d:=10; <br>gotoxy(x,y);
write(CHR(d));
y:=y+1;
if y=25 then y:=1;
end;
X:=random(80);
if x>=80 then x:=1;
writeln;
writeln;
UNTIL KEYPRESSED;
textattr:=145;
gotoxy(32,12);
writeln('г==============¬');
gotoxy(32,13);
writeln('¦ До встречи ¦');
gotoxy(32,14);
writeln('L==============-');
readln; end.

Answer 1

Убери (или закомментируй) строку textattr:=1; после REPEAT 

Чтобы были 0 и 1 замени фрагмент
 for I:=1 to N do
 begin
        d:=random(3);
        gotoxy(x,y);
        if d<2 then write(d) else write(' ');       <br>
на моей машине работает очень быстро. Чтобы замедлить, увеличь число 128 (я ставил 12800) в строке
while r<=128 do <br>