В одномерных массивах Х и Y одинакового размера n хранятся координаты n точек плоскости. Определить минимальный радиус круга с центром в начале координат, который содержит все точки — Pascal(Паскаль)

uses crt;
const n=5;
var x,y: array[1..n] of word; c: array[1..n] of real; i,j: byte; max: real;
begin
clrscr;
writeln('введите значения координат точек плоскости: ');
for i:=1 to n do
begin
writeln(i,': ');
write('x: ');
readln(x[i]);
write('y: ');
readln(y[i]);
end;
for i:=1 to n do
c[i]:=sqrt(sqr(x[i])+sqr(y[i]));
max:=c[1];
j:=1;
for i:=2 to n do
if c[i]>max then 
begin
j:=i;
max:=c[i];
end;
write('радиус круга не меньше ',sqr(x[j])+sqr(y[j]));
end.