Написать программу, которая по выбору пользователя рисует геометрическую фигуру

uses crt,graphABC;
var w:char;
    xc,yc,c,x,y,i:integer;
begin
hidecursor;
repeat
clrscr;
writeln('Выберите фигуру');
writeln('1-треугольник');
writeln('2-квадрат');
writeln('3-круг');
writeln('4-ромб');
writeln('5-эллипс');
writeln('другое - выход');
read(w);
xc:=windowwidth div 2;
yc:=windowheight div 2;
setpencolor(clRed);
case w of
'1':begin
    clrscr;
    textout(xc-50,10,'Нажмите Enter');
    moveto(xc+round(150*cos(pi/2)),yc-round(150*sin(pi/2)));
    for i:=1 to 4 do
     begin
      x:=xc+round(150*cos((i-1)*(2*pi/3)+pi/2));
      y:=yc-round(150*sin((i-1)*(2*pi/3)+pi/2));
      lineto(x,y);
     end;
    readln
    end;
'2':begin
    clrscr;
    textout(xc-50,10,'Нажмите Enter');
    rectangle(xc-150,yc-150,xc+150,yc+150);
    readln
    end;
'3':begin
    clrscr;
    textout(xc-50,10,'Нажмите Enter');
    circle(xc,yc,150);
    readln
    end;
'4':begin
    clrscr;
    textout(xc-50,10,'Нажмите Enter');
    moveto(xc-100,yc);
    lineto(xc,yc-150);
    lineto(xc+100,yc);
    lineto(xc,yc+150);
    lineto(xc-100,yc);
    readln
    end;
'5':begin
    clrscr;
    textout(xc-50,10,'Нажмите Enter');
    ellipse(xc-150,yc-100,xc+150,yc+100);
    readln
    end;
end;
until not(w in ['1'..'5'])
end.