Задать цвет фона розовый, цвет фигуры — серый, фигура в виде квадрата. Клавишами управления курсором двигать фигуру по экрану- Pascal(Паскаль)

uses graph,crt;
var x,y,a,d:integer;
    k:char;
begin
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
a:=20;
outtextXY(x-80,20,'Upravlenie - Strelki');
outtextXY(x-50,40,'Exit - Esc');
setcolor(12);
rectangle(x-a,y-a,x+a,y+a);
repeat
if keypressed then
 begin
  k:=readkey;
  if k=#0 then k:=readkey;
  case k of
  #80:begin
      delay(50);
      setcolor(0);
      rectangle(x-a,y-a,x+a,y+a);
      if y>getmaxY-a-10 then d:=0
      else d:=10;
      y:=y+d;
      setcolor(12);
      rectangle(x-a,y-a,x+a,y+a);
      end;
  #72:begin
      delay(50);
      setcolor(0);
      rectangle(x-a,y-a,x+a,y+a);
      if y<70 then d:=0
      else d:=10;
      y:=y-d;
      setcolor(12);
      rectangle(x-a,y-a,x+a,y+a);
      end;
  #77:begin
      delay(50);
      setcolor(0);
      rectangle(x-a,y-a,x+a,y+a);
      if x>getmaxX-a-10 then d:=0
      else d:=10;
      x:=x+d;
      setcolor(12);
      rectangle(x-a,y-a,x+a,y+a);
      end;
  #75:begin
      delay(50);
      setcolor(0);
      rectangle(x-a,y-a,x+a,y+a);
      if x<a+10 then d:=0
      else d:=10;
      x:=x-d;
      setcolor(12);
      rectangle(x-a,y-a,x+a,y+a);
      end;
  #27:exit;
  end;
 end;
until k=#27;
end.