PascalABC.Помогите,пожалуйста,решить задачу!Нарисуйте окружность такой линией, ширина которой больше радиуса. Обведите полученную фигуру по контуру окружностью с линией шириной 1.

//Pascal ABC.NET 3.1 сборка 1219

uses
 GraphABC;
const
    radius = 100;
    line_width = 101;

begin
    Window.Init(0, 0, 350, 350, clNavy);
    Window.CenterOnScreen();
    Brush.Color := clBlue;
    Pen.Color := clBlack;
    Pen.Width := line_width;
    Circle(WindowCenter.X, WindowCenter.Y, radius);
    Pen.Width := 2;
    Pen.Color := clAquamarine;
    DrawCircle(WindowCenter.X, WindowCenter.Y, radius + line_width div 2);
end.