Codigo Matrix - Turbo Pascal

Program MATRIX;

Uses Crt;

Var

col,lin,ql,cont,aux:integer;

letra:char;

Begin

     Clrscr;

     Repeat

        col:=1+Random(79);

        lin:=1+Random(23);

  ql:= Random(10);

  for cont:= lin to lin+ql do

          Begin

                    if cont<24 then

              Begin

           letra:= chr(Random(255));

           for aux:=1 to 2 do

               Begin

                    if aux= 1 Then

                Textcolor(10)

    else

    Textcolor(2);

    gotoxy(col,cont);

    write(letra);

    delay(50);

                       end;

              end;

      end;

     until keypressed;

end.