Построить кривые по заданному параметрическому представлению - Pascal ABC (23145)

Формулировка задачи:

помогите пожалуйста решить две задачи по графикежелательно на АВСпаскаль) 1. Построить кривые по заданному параметрическому представлению: улитка Паскаля: у = а • cos² t + b • cos t , y = a • соs t • sin t + b • sin t , при условии, что a>0, b>0, t ? [0,2п]. Рассмотреть случаи, когда b ≥ 2a, a < b < 2а, a > b. 2. рассортировать методом пузырька кружок или любое геометрическое тело.

или хотя бы исправить ошибки в программме(не работает): улитка паскаля...

program Snail;uses
Crt,
Graph;const
grPath = 'C:\LAN\BP\BGI';
A = 50;
B = 70;
 
var
grDriver, grMode: Integer;
MidX, MidY: Integer; {координаты центра экрана}
g: Integer; {счетчик в градусах}
t: Real; {счетчик в радианах}
X, Y: Real; {текущие координаты}
 
begin
grDriver := Detect;
InitGraph(grDriver, grMode, grPath);
MidX := GetMaxX div 2;
MidY := GetMaxY div 2;
{Рисуем оси}
Line(0, MidY, GetMaxX, MidY);
Line(MidX, 0, MidX, GetMaxY);
{Цикл от 0 до 2Пи}
for g := 0 to 360 do begin
t := g * Pi / 180;
X := MidX + A * Sqr(Cos(t)) + B * Cos(t);
Y := MidY + A * Cos(t) * Sin(t) + B * Sin(t);
if g = 0 then
MoveTo(Round(X), Round(Y))
else
LineTo(Round(X), Round(Y));
end;
ReadKey;
CloseGraph;
end.

Решение задачи: «Построить кривые по заданному параметрическому представлению»

Листинг программы

uses graphABC;
type Okr=record
         r,c:integer;//радиус и цвет окружности
         end;
const n=10;
var a:array[1..n] of Okr; //массив окружностей
    i,j:integer;
    x:Okr;
begin
randomize;
for i:=1 to n do
 begin
  a[i].c:=RGB(random(255),random(255),random(255));
  a[i].r:=random(25)+2;
  setpencolor(a[i].c);
  circle(i*60,60,a[i].r);
 end;
for i:=1 to n-1 do  //сортироака прямым обменом, заменишь на пузырек
for j:=i+1 to n do
if a[i].r>a[j].r then //по увеличению радиуса
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
for i:=1 to n do//вывод отсортированных
 begin
  setpencolor(a[i].c);
  circle(i*60,200,a[i].r);
 end;
end.

Объяснение кода листинга программы

Установка начального цвета и радиуса для окружностей в массиве a.
Создание окружностей на экране с помощью функции circle.
Прямой обмен элементами массива a для сортировки по радиусу.
Вывод отсортированных окружностей на экран с помощью функции circle.