Mriežka vo FreePascale

Servuste...mohol by mi niekto vo FreePascale vytvoriť program, ktorej výsledkom by bola mriežka cez celu obrazovku z čiar(line)?..A ešte 1 otázka: Prečo ked zapnem program, mám tam cyklus for...dam run..a dolu na lište sa mi to akokeby 100x otvorilo?

ake maju byt velke kocky v mriezke ?

No to sme nemali dané ale tak aby tam takych 25 štvorcov bolo rovnako veľkých...na celej obrazovke...pomocou line to nejako spraviť...a ževraj s cyklom FOR..mne to nijako nejde

sorry nemal si napisat ze to je zadanie do skoly... takze to nevypracujem
dam ti ale dve rady:
1.pre zvysle ciary sa ti bude v cykle menit hodnota x-ovej suradnice pricom
2.pre vodorovne ciary sa ti bude v cykle menit hodnota y-ovej suradnice

cyklus bude mat 5opakovani na kazdy smer

hadam si tomu pochopil

Ale nebuď labuď ...tak ale vieš ako to je keď sa v škole máločo učí:(..tak ak by si si to rozmyslel tak ho tu možeš hodiť ten program..ja budem len rád ...ale aj tak diky aspon že si mi z niečím poradil...thx ;-)

neprišiel som na to pls pomôžte...:-(

for i:=1 to 15 do
Line(0,20*i,640,20*i);

to mas vodorovne ciary, podobne spravis aj zvisle

Okéj diky moc