Стирание линии при нажатии определенной клавиши

Uses crt, graphABC;
Var
    i, a: integer;
    s: string[63];
    k: char;
 
Procedure BuildMenu;
Const
    l: array[1..3] of string[5] = (
    'Play', 'About', 'Exit');
Begin
ClrScr;
//cursoroff;
For i := 1 to 3 do
begin
    If i = a then TextColor(Red)
    Else TextColor(Black);
    gotoxy(44,14+i);
    WriteLn(l[i]);
end;
End;
 
Procedure Play;
Const m = 128;
Var
    i, d, xp, yp, x0, y0, xM, yM, gd, gm: integer;
    GetMaxX,GetMaxY: integer;
    r,g,b: integer;
    x, y: array[1..m] of integer;
    n: array[1..m] of boolean;
Begin
{gd := detect;
InitGraph(gd, gm, '');}
SetWindowSize(640,480);
GetMaxX:=WindowWidth;
GetMaxY:=WindowHeight;
ClrScr;
 
x0 := 8;
y0 := 8;
xM := GetMaxX - 8;
yM := GetMaxY - 8;
xp := x0;
yp := y0;
 
d := 0;
n[1] := true;
writeln('Выберите цвет резинки в виде аддитивной цветовой модели');
Textcolor(red);
writeln('Введите красную составляющую(максимальное значение 239):');
readln(r);
if (r>239) or (r<1) then
repeat
Textcolor(red);
writeln('Введено не подходящие значение. Повторите ввод:');
readln(r);
until (r<239) and (r>1)
Else
clrscr;
clrscr;
Textcolor(green);
writeln('Введите зелёную составляющую(максимальное значение 239):');
readln(g);
if (g>239) or (g<1) then
repeat
Textcolor(green);
writeln('Введено не подходящие значение. Повторите ввод:');
readln(g);
until (g<239) and (g>1)
Else
clrscr;
clrscr;
Textcolor(blue);
writeln('Введите синию составляющую(максимальное значение 239):');
readln(b);
if (b>239) or (b<1) then
repeat
Textcolor(blue);
writeln('Введено не подходящие значение. Повторите ввод:');
readln(b);
until (b<239) and (b>1);
 
Repeat
    ClearWindow;;
    setpencolor(rgb(r,g,b));
    MoveTo(x0,y0);
    LineTo(xM, y0);
    LineTo(xM, yM);
    LineTo(x0, yM);
    LineTo(x0, y0);
    Rectangle(xp, yp, xp + 8, yp + 8);
 
        For i := 1 to d do begin
        If n[i] then  MoveTo(x[i], y[i])
        Else LineTo(x[i], y[i]);
    end;
 
    k := ReadKey;
    If k = #0 then
    begin
        k := ReadKey;
        Case k of
            #77: If xp > x0 then xp := xp - 8;
            #75: If xp < xM - 8 then xp := xp + 8;
            #72: If yp > y0 then yp := yp - 8;
            #80: If yp < yM - 8 then yp := yp + 8;
        end;
    end
    Else begin
        Case k of
            #13:
            begin
                If (d > 0) and (x[d] = xp + 4) and (y[d] = yp + 4) then n[d + 1] := true
                Else begin
                    d := d + 1;
                    x[d] := xp + 4;
                    y[d] := yp + 4;
                end;
            end;
            #27:
            begin
                For i := 1 to d do
                begin
                    If (x[i] = xp + 4) and (y[i] = yp + 4) then
                    begin
                        While not n[i] do i := i - 1;
                        Repeat
                            x[i] := 0;
                            y[i] := 0;
                            i := i + 1;
                        Until n[i];
                        Break;
                   end;
                end;
            end;
 
        end;
    end;
Until k = #32;
//CloseGraph;
End;
 
Procedure About;
Begin
  clrscr;
  Textcolor(Red);
 Gotoxy(30,25);
Write('г.Екатеринбург 2015 г.');
Readln;
  writeln('Press <SPACE> to quit.');
  while true do
   begin
     k:=readkey;
     if k=#32 then
       exit;
   end;
End;
{------------------------------------------------}
 
Begin
  SetWindowWidth(768);
  SetWindowHeight(576);
 
a := 1;
BuildMenu;
 
Repeat
    k := ReadKey;
    If k = #0 then begin
        k := ReadKey;
        Case k of
            #72: begin
                a := a - 1;
                If a < 1 then a := 3;
            end;
            #80: begin
                a := a + 1;
                If a > 3 then a := 1;
            end;
        end;
    end
    Else
    begin
        If k = #13 then
        Case a of
            1: Play;
            2: About;
            3: Exit;
        end;
    end;
    BuildMenu;
 
Until k = #27;
End.