В программе определить массив записей Каждая запись определяет геометрическую фигуру: окружность

type
  figure=record
    x,y:integer;
    color:integer;
    case f:figtype of
      circleR: (r:integer);
      triangle: (xb,yb,xc,yc:integer);
      rectangleR: (width,height:integer);
  end;

uses
  graph;
const
  n=100;
type
  figtype=(circleR,triangle,rectangleR);
type
  figure=record
    x,y:integer;
    color:integer;
    case f:figtype of
      circleR: (r:integer);
      triangle: (xb,yb,xc,yc:integer);
      rectangleR: (width,height:integer);
  end;
var
  gd,gm : integer;
  PathToDriver : string;
  i: integer;
  figs:array[1..n] of figure;
  flag:byte;
begin
  gd:=detect; { highest possible resolution }
  gm:=0; { not needed, auto detection }
  PathToDriver:='C:\PP\BGI'; { path to BGI fonts,
                               drivers aren't needed }
  InitGraph(gd,gm,PathToDriver);
  if GraphResult<>grok then
      halt;
  { whatever you need }
  randomize;
  {Генерация фигур}
  for i:=1 to n do
    begin
      figs[i].x:=Random(GetMaxX div 2);
      figs[i].y:=Random(GetMaxY div 2);
      figs[i].color:=Random(GetMaxColor);
      flag:=random(3);
      case flag of
        0:
          begin
            figs[i].f:=circleR;
            figs[i].r:=Random(GetMaxX div 6);
          end;
        1:
          begin
            figs[i].f:=triangle;
            figs[i].xc:=Random(GetMaxX div 6);
            figs[i].yc:=Random(GetMaxX div 6);
            figs[i].xb:=Random(GetMaxX div 6);
            figs[i].yb:=Random(GetMaxX div 6);
          end;
        2:
          begin
            figs[i].f:=rectangleR;
            figs[i].width:=Random(GetMaxX div 6);
            figs[i].height:=Random(GetMaxX div 6);
          end;
      end;
    end;
  for i:=1 to n do
    begin
      setcolor(figs[i].color);
      case figs[i].f of
        circleR:
          circle(figs[i].x,figs[i].y,figs[i].r);
        triangle:
          begin
            line(figs[i].x,figs[i].y,figs[i].xc,figs[i].yc);
            line(figs[i].xc,figs[i].yc,figs[i].xb,figs[i].yb);
            line(figs[i].xb,figs[i].yb,figs[i].x,figs[i].y);
          end;
        rectangleR:
          rectangle(figs[i].x,figs[i].y,figs[i].x+figs[i].width,figs[i].y+figs[i].height);
      end;
    end;
  readln;
  CloseGraph; { restores the old graphics mode }
end.