PascalABC.NET - Описать класс геометрических фигур, квадрат, круг, треугольник

[niv1]

Помогите пожалуйста. В программирование не силен.
Как работать с классами не знаю.

Нужно, что бы выглядело так:

Меню программы:
1. Треугольник
2. Круг
3. Квадрат
Выбираем нужную геометрическую фигуру (вводим с клавиатуры например 2).
Программа просит, задать размер фигуры, в даном случае размер круга (его радиус).
Вводим с клавиатуры например 7.
Программа просит выбрать цвет фигуры.
1. Красный
2. Оранжевый
3. Желтый
4. Зеленый
5. Голубой
6. Синий
7. Фиолетовый
Выбираем нужный цвет например 4.
Программа выводит графическое окно, в которой нарисован зеленый круг радиусом 7.
И для всего этого добра нужно рассмотреть класс геометрических фигур.

Есть мой код выглядит так, его надо доделывать сильно.

Код: Выделить всё

Program classfigur;
Uses graphabc;
Var
  n: Byte;
 
procedure krug;
begin
Circle(500,200,100);
FLOODFILL(500,200,clred);
end;
 
procedure kvadr;
begin
line(200,1,440,1);
line(440,1,440,240);
line(440,240,200,240);
line(200,240,200,1);
FLOODFILL(240,200,clblue);
end;
 
procedure treug;
begin
line(300,100,500,300);
line(500,300,100,300);
line(100,300,300,100);
FLOODFILL(300,200,clgreen);
end;
 
begin
  repeat
  WriteLn('1-Круг');
  WriteLn('2-Квадрат');
  WriteLn('3-Треугольник');
  WriteLn('4-Выход');
  Write('5-Следующая фигура: ');
  ReadLn(n);
  Case n of
    1: krug;
    2: kvadr;
    3: treug;
  end;
  until n <> 0;
end.

Предусмотреть методы для создания объектов, изменения размеров и цвета.
Спасибо.

еще нужно что бы выводил данные о фигурах(место расположение и размер)