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         
r:=r+0.001;             
Randomize;       
N:=random(9);       
for I:=1 to N do begin       
d:=random(70);       
If d<10 then d:=10;           
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(' ');       

на моей машине работает очень быстро. Чтобы замедлить, увеличь число 128 (я ставил 12800) в строке
while r<=128 do