матрица-из фильма ))

 
uses crt;
const
k = 35;
 my = 24;
 mx = 79;
 paus = 50;
 sym_s= 32;
 sym_e= 200;
T: string = 'Matrix screensaver by EncomService';
RT: string ='Loadin...................................';
ET: string ='Press Enter for start Matrix';
Var
 a: byte;
  procedure matrix;
const ESC=#27; UP=#72; DOWN=#80;
var
gd,gm,i,j,c,sp:integer;
 pause:longint;
 scr:array [1..25,1..80] of char;
 Ch:char;
begin
{gd:=0; gm:=0;
initgraph(gd,gm,'c\bp\bgi');}
 window (1,1,80,80);
 clrscr;
 directvideo:=true;
 textcolor (green);
 for i:=1 to 25 do for j:=1 to 80 do scr[i,j]:=#0;
 randomize;
 pause:=1000;
 repeat
  repeat
   c:=48+random(10);
   sp:=random(3);
   if sp=0 then c:=32;
   j:=2+random(79);
   for i:=24 downto 2 do begin
    scr[i,j]:=scr[i-1,j];
    gotoxy(j,i);
    write (scr[i-1,j]);
   end;
   gotoxy (j,1);
   scr[1,j]:=Chr(c);
   write (scr[1,j]);
   {settextstyle(0,0,1);}
   delay (3);
  until keypressed;
  Ch:=ReadKey;
  case Ch of
   #0: begin
    Ch:=ReadKey;
    case Ch of
     UP:    if pause<MaxLongInt-10 then Inc(pause,10);
     DOWN:  if pause>10 then Dec (pause,10);
    end;
   end;
   ESC: Exit;
  end;
 until false;
 clrscr;
 textcolor(Green);
end;
 
begin
clrscr;
 writeln (
  'MatriX! :-)'+#13+#10+
  #24+'   - slow'+#13+#10+
  #25+'   - fast'+#13+#10+
  'Esc - exit'+#13+#10+
  'Press a key');
 reset (input);
 repeat until keypressed;
Begin
 clrscr;
 GotoXY((mx div 2)-(length(T) div 2), my div 2);
 textcolor(10);
 For a:=1 to length(T) do
  Begin
   Write(T[a]);
   delay(paus*1);
  End;
 delay(paus*10);
 delay(paus*10);
 GotoXY((mx div 2)-(length(T) div 2), my div 2);
 textcolor(0);
 For a:=1 to length(T) do
  Begin
   textcolor(0);
   Write(chr(random(random(sym_e))+sym_s));
   delay(paus*2);
   GotoXY(whereX-1,WhereY);
   textcolor(0);
   Write(T[a]);
  End;
delay(paus*10);
begin
repeat
  Begin
 clrscr;
 GotoXY((mx div 2)-(length(RT) div 2), my div 2);
 textcolor(10);
 For a:=1 to length(RT) do
  Begin
   Write(RT[a]);
   delay(paus*2);
 
  End;
 delay(paus*20);
 delay(paus*20);
 GotoXY((mx div 2)-(length(RT) div 2), my div 2);
 textcolor(0);
 For a:=1 to length(RT) do
  Begin
   textcolor(0);
   Write(chr(random(random(sym_e))+sym_s));
   delay(2);
   GotoXY(whereX-1,WhereY);
   textcolor(0);
   Write(RT[a]);
 
  End;
 end;
 until keypressed;
 Begin
 clrscr;
 GotoXY((mx div 2)-(length(ET) div 2), my div 2);
 textcolor(10);
 For a:=1 to length(ET) do
  Begin
   Write(ET[a]);
   delay(paus*1);
  End;
 delay(paus*10);
 delay(paus*10);
 GotoXY((mx div 2)-(length(ET) div 2), my div 2);
 textcolor(0);
 For a:=1 to length(ET) do
 Begin
   textcolor(0);
   Write(chr(random(random(sym_e))+sym_s));
   delay(0);
   GotoXY(whereX-1,WhereY);
   textcolor(0);
   Write(ET[a]);
  End;
end;
end;
end;
 
delay(paus*10);
  delay(paus*20);
 matrix;
end.