Нужна помощь в паскале с управлением!!!!
Мне нужно что-бы при нажатии WASD она двигалась в разные стороны, я не понимаю как это сделать, получилось только в 1 сторону
Program lol;
uses GraphABC, crt;
var eda1,eda,x,i,y:integer; w,d,a,s:char;
const r=5;
begin
setwindowsize (550,350);
eda1:=random(540);
eda:=random(290);
x:=275;
y:=175;
circle(x,y,r);
FloodFill(x,y,clblack);
circle(eda1,eda,r);
FloodFill(eda1,eda,clBlue);
repeat
w:=readkey;
if readkey=w then y:=y-5;
if y=0 then y:=350;
clrscr;
circle(x,y,r);
FloodFill(x,y,clblack);
until x=1000;
end.