Определить комбинированный тип, описывающий окружность и состоящий из двух полей: «радиус» и «центр»

program c3;
uses crt;
const n=5;
type t_okr=record
     radius:integer;
     centr:record
     ox:integer;
     oy:integer;
     end;
  end;
var okr:array[1..n] of t_okr;
    okr2:array[1..n] of t_okr;
i,k:integer;
begin
for i:=1 to n do
begin
writeln('введите радиус');
 readln(okr[i].radius);
writeln('введите координату х');
 readln(okr[i].centr.ox);
writeln('введите координату у');
 readln(okr[i].centr.oy);
end;
for i:=1 to n do
 begin
if (okr[i].centr.ox<0) and (okr[i].centr.oy<0) then
 begin
inc(k);
okr2[k]:=okr[i];
  end;
   writeln(okr[k].centr);
 end;
   end.

writeln(okr[i].centr);

WriteLn(okr[i].centr.ox,',',okr[i].centr.oy);

with okr[i],okr[i].centr do WriteLn(ox,',',oy);

const n=10;
type
  t_okr=record
    radius: integer;
    centr: record
      ox, oy:integer;
    end;
  end;
var
  okr, okr2:array[1..n] of t_okr;
  i, k:integer;
begin
  k:=0;
  for i:=1 to n do with okr[i],okr[i].centr do begin
    WriteLn('Введите радиус и координаты центра: '); ReadLn(radius,ox,oy);
    if (ox<0) and (oy<0) then begin
      inc(k); okr2[k]:=okr[i];
    end;
  end;
  WriteLn('Окружности с центром в 3-й четверти:')
  for i:=1 to k do with okr2[i],okr2[i].centr do
    WriteLn(radius,',','(',ox,',',oy,')');
end.