FreePascal - Egyszerű 2D-s ütközésvizsgálat hiba (201), segítség (? )!

Adott a következő program, egy sima "mozgasd a négyzetet, és ha hozzáérsz a ponthoz írd ki" program, de amint elkezdek jobbra menni bezárja exitcode 201-es hibával... én nem találtam benne hibát, nem értem :/

program grafika;

uses wincrt,graph;

var

x,y,px,py:word;

valasztas:char;

procedure grstart;

var gd,gm:integer;

begin

gd:=detect;

initgraph(gd,gm,'C:\Fpc\2.2.0\bin\i386-win32');

if graphresult <> grok then write('Hibás grafika');

end;

procedure rajzol;

begin

setfillstyle(1,green);

//fillellipse(x,y,50,50);

bar(x,y,x+50,y+50);

end;

procedure torles;

begin

setfillstyle(1,black);

// fillellipse(x,y,50,50);

bar(x,y,x+50,y+50);

end;

procedure utkozes_vizsgalat;

begin

// {$RANGECHECKS OFF}

if ((px in [x..x+50]) and (py in [y..y+50])) then

begin

outtextxy(10,10,'Ütközés!');

putpixel(px,py,black);

px:=random(getmaxx);

py:=random(getmaxy);

putpixel(px,py,red);

end ;

end;

procedure mozgas;

begin

repeat

valasztas:=readkey;

if valasztas='w' then

begin

torles;

y:=y-5;

utkozes_vizsgalat;

rajzol;

end;

if valasztas='s' then

begin

torles;

y:=y+5;

utkozes_vizsgalat;

rajzol;

end;

if valasztas='a' then

begin

torles;

x:=x-5;

utkozes_vizsgalat;

rajzol;

end;

if valasztas='d' then

begin

torles;

x:=x+5;

utkozes_vizsgalat;

rajzol;

end;

until valasztas in ['e','E','w','a','s','d'];

end;

procedure pont;

begin

putpixel(px,py,red);

end;

begin

grstart;

x:=200;

y:=200;

px:=150;

py:=200;

rajzol;

pont;

repeat

mozgas;

pont;

until valasztas in ['e','E'];

end.