Ош

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
       a[i, j].x := i * 20;
       a[i, j].y := j * 20;
       a[i, j].r := random(10) + 1;
       a[i, j].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.