(*- Color @ Efeito matrix -*)

  Program Matrix_0.2;
  uses crt;
   var
     auxiliar,coluna,linha,de:integer;
     letra:array[1..46] of char;
   begin
    repeat
      for de:=1 to 46 do
       begin
    letra[de]:=Chr(123+de);
       end;

       coluna:=1+Random(80);
       linha:=1+Random(26);
       for de:=coluna to coluna+3 do
    begin
     auxiliar:=1+random(46);
     linha:=linha+1;
     textcolor(2);
     gotoxy(coluna,linha); writeln(letra[auxiliar]);
     delay(50);
        end;
      until keypressed;
    end.