Создание графического приложения

uses graphABC,crt;
type point=record
           x,y:integer;
           end;
procedure menu;
begin
clearwindow;
setbrushstyle(bsClear);
textout(10,0,'Выберите действие:');
textout(10,20,'1-Красный квадрат');
textout(10,40,'2-Синий круг');
textout(10,60,'3-Зеленый треугольник');
textout(10,80,'Другое кроме Enter выход');
end;
var w:char;
    xc,yc:integer;
    p:array[1..4] of point;
begin
hidecursor;
xc:=windowwidth div 2;
yc:=windowheight div 2;
repeat
menu;
w:=readkey;
case w of
'1':begin
    clearwindow;
    setpencolor(clRed);
    setbrushcolor(clRed);
    rectangle(xc-100,yc-100,xc+100,yc+100);
    readln;
    menu
    end;
'2':begin
    clearwindow;
    setpencolor(clBlue);
    setbrushcolor(clBlue);
    circle(xc,yc,100);
    readln;
    menu
    end;
'3':begin
    clearwindow;
    setpencolor(clGreen);
    setbrushcolor(clGreen);
    p[1].x:=xc+round(100*cos(pi/2));
    p[1].y:=yc-round(100*sin(pi/2));
    p[2].x:=xc+round(100*cos(7*pi/6));
    p[2].y:=yc-round(100*sin(7*pi/6));
    p[3].x:=xc+round(100*cos(11*pi/6));
    p[3].y:=yc-round(100*sin(11*pi/6));
    p[4]:=p[1];
    polygon(p,4);
    readln;
    menu
    end;
else if w<>#13 then exit
end;
until not(w in ['1'..'3',#13])
end.