Управление объектом с клавиатуры (задать движение)

program pr;
uses graphABC;
 
var
x,y:integer;
l,h:integer;
w:integer;
i:integer;
begin
x:=100;
y:=100;
l:=50;
h:=25;
w:=round(h/3);
SetBrushColor(clWhite); 
Rectangle(x,y,x+l,y+w); 
 
SetBrushColor(clBlue); 
Rectangle(x,y+w,x+l,y+2*w); 
 
SetBrushColor(clRed); 
Rectangle(x,y+2*w,x+l,y+3*w); 
 
 
 
readln;
end.

program pr;
uses graphABC,crt;
procedure flag(x,y,l,h:integer);
var w:integer;
begin
w:=h div 3;
SetBrushColor(clWhite);
Rectangle(x-l,y-w div 2,x+l,y-3*w div 2);
SetBrushColor(clBlue);
Rectangle(x-l,y-w div 2,x+l,y+w div 2);
SetBrushColor(clRed);
Rectangle(x-l,y+w div 2,x+l,y+3*w div 2);
end;
var x,y,r,d,l,h:integer;
    k:char;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
textout(x-150,0,'Управление стрелкакми, Выход - Esc');
hidecursor;
l:=25;
h:=25;
Flag(x,y,l,h);
lockdrawing;
repeat
if keypressed then
  begin
   k:=readkey;
   if k=#0 then k:=readkey;
   case k of
   #80:begin
       clearwindow;
       if y>windowheight-h div 2 then d:=0
       else d:=10;
       y:=y+d;
       Flag(x,y,l,h);
       delay(100);
       redraw;
      end;
   #72: begin
        clearwindow ;
        if y<h div 2 then d:=0
        else d:=10;
        y:=y-d;
        Flag(x,y,l,h);
        delay(100);
        redraw
       end;
   #75:begin
       clearwindow;
       if x>windowwidth-l then d:=0
       else d:=10;
       x:=x+d;
       Flag(x,y,l,h);
       delay(100);
       redraw;
      end;
   #77:begin
       clearwindow;
       if x<l then d:=0
       else d:=10;
       x:=x-d;
       Flag(x,y,l,h);
       delay(100);
       redraw;
      end;
   #27:exit;
   end;
 end;
until k=#27;
end.