Задача в графическом режиме

uses graphABC,crt;
procedure Trg(x,y:integer);
var x1,y1,x2,y2,x3,y3:integer;
    u:real;
begin
u:=pi/2;
x1:=x+round(20*cos(u));
y1:=y-round(20*sin(u));
u:=u+2*pi/3;
x2:=x+round(20*cos(u));
y2:=y-round(20*sin(u));
u:=u+2*pi/3;
x3:=x+round(20*cos(u));
y3:=y-round(20*sin(u));
setpencolor(clBlue);
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x1,y1);
floodfill(x,y,clBlue);
end;
var x,y,r,d:integer;
    k:char;
begin
hidecursor;
x:=windowwidth div 2;
y:=windowheight div 2;
textout(x-90,0,'Управление клавиши Up-Down');
textout(x-50,20,'   Выход - Esc');
Trg(x,y);
lockdrawing;
repeat
if keypressed then
  begin
    k:=readkey;
    if k=#0 then k:=readkey;
    case k of
    #81:begin //вниз
         clearwindow;
         textout(x-90,0,'Управление клавиши Up-Down');
         textout(x-50,20,'   Выход - Esc');
         if y>windowheight-10 then d:=0
         else d:=1; //1 пиксель, но это очень мало, нормально 10
         y:=y+d;
         Trg(x,y);
         delay(50);
         redraw;
        end;
    #73:begin
         clearwindow ;
         textout(x-90,0,'Управление клавиши Up-Down');
         textout(x-50,20,'   Выход - Esc');
         if y<50 then d:=0
         else d:=1;
         y:=y-d;
         Trg(x,y);
         delay(50);
         redraw
        end;
    #27:exit;
  end;
 end;
until k=#27;
end.