Hogy pascalban egy zászlókirajzoló programot egymásba ágyazott for ciklussal megoldani? (pl. magyar zászló)

Egy kis bugyuta változat:

program zaszlo;

uses Crt;

const

c : array[9..14] of string[5] =

(' _X_','/_T_\','!=!+!','!=!+!','\=!m/',' V');

var x,y : integer;

BEGIN

ClrScr;

TextBackground(LightRed);

for y := 3 to 8 do

for x := 14 to 65 do

begin GotoXY(x,y); Write(' '); end;

TextBackground(White); TextColor(Black);

for y := 9 to 14 do

for x := 14 to 65 do

begin GotoXY(x,y); Write(' '); end;

for y := 9 to 14 do

begin GotoXY(37,y); Write(c[y]); end;

TextBackground(LightGreen);

for y := 15 to 20 do

for x := 14 to 65 do

begin GotoXY(x,y); Write(' '); end;

TextBackground(Black); TextColor(White);

GotoXY(39,22); ReadLn;

END.

Sziasztok!

Kedves tabaki nevű felhasználó. Én bemásoltam padcalba a programod es valamiért azt írja, hogy az 1,6-os sorban hiba van,de nem értem miért. Kezdő vagyok pascalban kérlek segíts nekem mi lehet hiba. Válaszod előre is köszönöm.

A program tökéletes, másolásnál ronthattál el valamit.

(Bár nekem lyukasan jobban tetszene :))

Kedves Pókmalaci!

Lehet, hogy valóban a fordító körül van a kutya elásva. Én Free Pascalt használok -- leginkább linuxon, de mielőtt beküldtem volna a programot, Windowsban (XP) is kipróbáltam, ott is hibátlanul fordult le, és működött. Az első sor hatodik oszlopában nem látok semmi gyanúsat, egy ártalmatlan „a” betű.