Hogyan kell irni egy matrix tipusú Pascal programot?

Elvi szinten sztem így, persze lehet ennél jobb ötlet is:

A képernyőt oszlopokra osztod, minden oszlopnak csinálsz egy külön tömböt aminek az elemeit véletlenszerűen töltöd fel. Amikor szünet van a karakter oszlopban, újabb random elemekkel tölti fel az oszlopot és kezdődhet újra a ciklus.

Nem minden oszlop külön tömb.

Fogsz 2 egymásba ágyazott ciklust. Elindítod őket, amikor a belső az oszlop végéhez ér, akkor lépteted a sort és 0-ra állítod az oszlopot. És addig csinálod, amíg el nem éri az utolsó sor utolsó oszlopát.

program urulekpenisz;

uses crt;

var y,rand,oszlop:integer;

begin

Clrscr;

randomize;

TextMode(CO40);

TextColor(Green);

while true do

Begin

oszlop := random(79)+1;

For y := 1 to 24 do

Begin

Delay(2);

gotoXY(oszlop,y);

rand := random(92)+33;

Write(chr(rand));

End;

End;

end.

Nem tudom, milyen értelemben gondolod mátrixosnak, de ha úgy érted hogy leesnek a betűk akkor ott a potyogós vírus. :D

Nem tudom honnan tudod "beszerezni"...