Mi lehet a hiba?

free pascal-all programot írok

ezt gépeltem be:

Program Kukac;

Uses Crt;

Type

hely=Record

x,y:Byte;

End;

Var

i,o:Integer;

Ch:Char;

irany:Byte;

farok:Array[0..1793] of hely;

hossz:Word;

kellkaja,ok:Boolean;

kx,ky:Byte;

Begin

RaNDomize;CursorOFF;TextColor(BLACK);TextColor(WHITE);ClrScr

;

GotoXY(38,1);Write('KUKAC');

GotoXY(2,25);Write('IRÁNYÍTÁS: kurzormozgató billentyűkkel');

GotoXY(65,25);Write('KILÉPɐS: ESCape');

TextBackGround(LIGHTBLUE);

for o:=2 to 24 do

for i:=2 to 79 do begin

GotoXY(i,o);Write(' ');

end;

farok[0].x:=39;farok[0].y:=12;irany:=RaNDom(4)+1;hossz:=1;

farok[hossz].x:=40;farok[hossz].y:=12;

kellkaja:=True;

Repeat

if kellkaja then begin

repeat

ok:=True;

kx:=RaNDom(78)+2;

ky:=RaNDom(23)+2;

for i:=0 to hossz do if (farok[i].x=kx) and (farok[i].y=ky) then ok:=False;

until ok;

TextColor(YELLOW);GotoXY(kx,ky);Write('*');

readln;

End.

mi a hiba benne?