Изобразить (рог изобилия) — Pascal(Паскаль)

program rog;
 Uses crt, Graph
 
 ;
 
Var
   {переменные для инициализации графического режима}
     grDriver  :Integer;
     grMode    :Integer;
     ErrCode   :Integer;
   {переменные непосредственно для рисования...}
 
 
     {переменные для хранения координат}
     mX,mY   :word;
     x1,x2 :word;
     {рабочие переменные}
     j  :integer;
     ii:real;
Begin
 {автоматическое определение видео драйвера}
 grDriver:=Detect;
 { инициализация. загружается соответсующий драйвер
   и выбирается графический режим.}
 InitGraph(grDriver, grMode, '');
 ErrCode:=GraphResult;
 If ErrCode = grOk Then {если инициализация прошла успешно}
  Begin
   {максимальные значения значения координат x,y}
    mX:=round(GetMaxX/2);
    mY:=round(GetMaxY/2);
    setcolor(6);
    {центр круга}
    ii:=0;
    j:=50;
    {рисование рога}
    while ii<(pi*2) do
    begin
         x1:=round(mx+50*sin(ii));
         y1:=round(my+50*cos(ii));
 
         circle(x1,y1,j);
 
         j:=j-2;
         ii:=ii+0.3;
    end;
    readln;
 
    CloseGraph; {выход из графического режима}
 
  End {если инициализация не прошла удачно}
         Else WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
End.