Ош

uses
  GraphABC, ABCObjects;

type
  Mypoint = record
    x, y, r: integer;
    col: color;
    procedure Draw;
  end;

procedure MyPoint.Draw;
begin
  Brush.Color := col;
  Pen.Color := col;
  Circle(x, y, r);
end;

const
  n = 10;

var
  A: array[1..n, 1..n] of MyPoint;


begin
  for var i := 1 to n do
    for var j := 1 to n do
      with a[i, j] do
      begin
        x := i * 20;
        y := j * 20;
        r := random(10) + 1;
        col := clGray;
        //Draw;
      end;
      
  for var i := 1 to n do
    for var j := 1 to n do
    begin
      with a[i, j] do
      begin

        Draw;
      end;
   end;
      
  // Нарисовали шарики
  var s: mypoint;
  s.x := A[1, 1].x;
  s.y := A[1, 1].y;
  s.r := A[1, 1].r;
  s.col := A[1, 1].col;
  for var i := 1 to n do
    for var j := 1 to n do
      if A[i, j].R > S.R then 
      begin
      S.x := A[i, j].x;
      s.y := A[i, j].y;
      s.r := A[i, j].r;
      s.col := A[i, j].col;
      end;
  writeln(S.x,' ',s.y, ' ',s.r);
  S.col := Clred;
  S.Draw;
end.