Написать программу, которая вычерчивает на экране узор из 100 окружностей случайного диаметра и цвета — Pascal(Паскаль)

program p_1;

uses Graph;

var
  grDriver: Integer; { драйвер }
  grMode: Integer; { графический режим }
  ErrCode: Integer; { результат инициализации графического режима }
  i, cv, d: Integer;

begin
  grDriver := detect; { автоматическое задание графического режима }
  InitGraph(grDriver, grMode, 'C:\BP\bgi');
  { перевод экрана в графический режим }
  ErrCode := GraphResult;
  if ErrCode = grOk then { проверка успешности установки графического режима }
  begin
    randomize;
    for i := 1 to 100 do
    begin
      cv := random(16);
      d := random(200);
      setcolor(cv); { определяем цвет линии контура круга }
      circle(320, 240, d); { рисуем круг }
    end;
  end;
  readln;
  CloseGraph;

end.