Программа: клавишами управления курсором двигать фигуру по экрану

uses crt,graph;
const n=11;{10 точек-вершины фигуры, 1-я точка 2 раза, замыкаем }
type
Point=record {тип запись - точка с координатами}
           x,y:integer;
           end;
mas=array[1..n] of Point;{массив точек-фигура}
procedure Z(x,y:integer;var m:mas;c:byte);
{процедура рисования фигуры по координатам "курсора", точкам и цвету}
var i:byte;
begin
Setcolor(c);
m[1].x:=x;m[1].y:=y;
m[2].x:=x+50;m[2].y:=y;
m[3].x:=x+50;m[3].y:=y+5;
m[4].x:=x+7;m[4].y:=y+45;
m[5].x:=x+50;m[5].y:=y+45;
m[6].x:=x+50;m[6].y:=y+50;
m[7].x:=x;m[7].y:=y+50;
m[8].x:=x;m[8].y:=y+45;
m[9].x:=x+43;m[9].y:=y+5;
m[10].x:=x;m[10].y:=y+5;
m[11].x:=x;m[11].y:=y;
moveto(m[1].x,m[1].y);
for i:=1 to n do
lineto(m[i].x,m[i].y);
Setfillstyle(1,c);
Floodfill((m[1].x+m[2].x) div 2,(m[1].y+m[10].y) div 2,c);
end;
var gd,gm:integer;
    x,y,x1,y1:integer;
    p:mas;
    c1,c2:byte;
    k:char;
    move:boolean;
begin
gd:=detect;
Initgraph(gd,gm,'');
Setbkcolor(13);{цвет фона}
x:=340;y:=240;{начальное положение}
c1:=7;c2:=13;{цвет фигуры-серый, цвет фона-типа розовый}
move:=true;{рисуем}
repeat
if keypressed then{если нажата клавиша}
  begin
    k:=readkey;
    if k=#80 then {стрелка вниз}
      begin
        y1:=y;
        x1:=x;
        y:=y+5;
        move:=true;
      end;
    if k=#72 then{вверх}
      begin
        y1:=y;
        x1:=x;
        y:=y-5;
        move:=true;
      end;
    if k=#77 then{вправо}
      begin
        y1:=y;
        x1:=x;
        x:=x+5;
        move:=true;
      end;
    if k=#75 then{влево}
      begin
        y1:=y;
        x1:=x;
        x:=x-5;
        move:=true;
      end;
  end;
if move then
  begin
   Z(x1,y1,p,c2);{рисуем цветом фона, стираем}
   Z(x,y,p,c1);{рисуем заданным цветом, создаем на новом месте}
   move:=false;
  end;
until k=#27;{выход - Esc}
closegraph
end.

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.