Создать эффект матрицы (падающих букв)

Uses CRT;
Type
 Lii = Record
        x,
        y,
        s,
        e,
        c: byte;
       End;
Const
 k = 35;
 my = 24;
 mx = 79;
 paus = 1;
 sym_s= 32;
 sym_e= 200;
 T: string = 'Matrix screesaver by TAVulator';
Var
 L: array[1..k+1] of Lii;
 i: byte;
 
Procedure PXY(p: Lii);
Var
 o: byte;
 c: char;
Begin
 case p.c of
  5..19: textcolor(0);
  1..3: textcolor(2);
  4: textcolor(10);
 end;
 If p.e=0 then
  Begin
   If p.y > p.s+3 then
    For o:=1 to random(p.y-p.s) do
     Begin
      GotoXY(p.x,p.y-random(p.y-p.s));
      c:=chr(random(random(sym_e))+sym_s);
      if c<>' ' then
       Write(c);
     End;
   GotoXY(p.x,p.y);
   c:=chr(random(random(sym_e))+sym_s);
   if c<>' ' then
    Write(c);
   If (p.c<5)and(p.y<my) then
    Begin
     GotoXY(p.x,p.y+1);
     Textcolor(15);
     Write(chr(random(random(sym_e))+sym_s));
    end;
   Textcolor(0);
   GotoXY(1,1);
  end;
End;
 
Begin
 clrscr;
 GotoXY((mx div 2)-(length(T) div 2), my div 2);
 textcolor(10);
 For i:=1 to length(T) do
  Begin
   Write(T[i]);
   delay(paus*200);
  End;
 delay(paus*500);
 delay(paus*500);
 GotoXY((mx div 2)-(length(T) div 2), my div 2);
 textcolor(0);
 For i:=1 to length(T) do
  Begin
   textcolor(15);
   Write(chr(random(random(sym_e))+sym_s));
   delay(paus*200);
   GotoXY(whereX-1,WhereY);
   textcolor(0);
   Write(T[i]);
  End;
 For i:=1 to k do
  L[i].e:=1;
 Randomize;
 Repeat
  For i:=1 to k do
   If L[i].e = 1 then
    Begin
     L[i].x:= Random(mx)+1;
     L[i].s:= Random(my)+1;
     L[i].e:= 0;
     L[i].y:= L[i].s;
     L[i].c:= Random(Random(30));
    End else
    Begin
     delay(paus);
     PXY(L[i]);
     if L[i].y <=my then
      inc(L[i].y) else L[i].e:=1;
    End;
  For i:=1 to mx+k do
   Begin
    L[k+1].x:= random(mx)+1;
    L[k+1].y:= 1;
    L[k+1].s:= 1;
    L[k+1].e:= 0;
    L[k+1].c:= 10;
    PXY(L[k+1]);
    delay(paus);
   End;
 until keypressed;
End.