Hogyan tudnám megcsinálni hogy x+1 ujra x legyen? Pascal

Egy mozgo 'o'-t akrtam programozni csak nem nagyon akar összejönni tudom mi a probléma de sehogyse tudom megoldani 1-2 tipp illetve help jó lenne ! Itt a program :

program mozgatas;

uses crt;

var x,y:byte;

var irany:char;

begin

clrscr;

x:=10;

y:=10;

textcolor(11);

gotoxy(x,y);

write('o');

repeat

irany:=readkey;

case irany of

'a':

begin

clrscr;

gotoxy(x-1,y);

write('o');

end;

'd':

begin

clrscr;

gotoxy(x+1,y);

write('o');

end;

's':

begin

clrscr;

gotoxy(x,y+1);

write('o');

end;

'w':

begin

clrscr;

gotoxy(x,y-1);

write('o');

end;

end;

until irany=#27;

end.

ha vhol elszurtam sry de pls vki help köszi !