Hogyan tudnám ezt free pascalban megoldani!?

Enter billentyű lenyomására lép ki, a kurzormozgató nyilakkal mozgathatod az X-et. Lehet nem a legszebb megoldás, de példának megteszi.

program mozgoX;

uses crt;

procedure kirajzol(x,y :byte);

begin

gotoxy(x,y);

write('X');

gotoxy(x+2,y);

write('X');

gotoxy(x+1,y+1);

write('X');

gotoxy(x,y+2);

write('X');

gotoxy(x+2,y+2);

write('X');

end;

var

c: char;

x,y: byte;

begin

write('Add meg az X kezdo x koordinatajat: ');

readln(x);

write('Add meg az X kezdo y koordinatajat: ');

readln(y);

cursoroff;

clrscr;

kirajzol(x,y);

repeat

if KeyPressed then

begin

c:=ReadKey;

if c=#0 then c:=ReadKey;

case c of

#72 : y:=y-1;

#80 : y:=y+1;

#75 : x:=x-1;

#77 : x:=x+1;

end;

clrscr;

kirajzol(x,y);

end;

until c=#13;

cursoron;

end.