Дан массив X с координатами X точек координатной плоскости и массив Y с координатами y точек в координатной плоскости. Найти точку, максимально удалённую от центра координат. Найти отрезок максимальной длины — Pascal(Паскаль)

uses crt;
const nmax=15;
var x,y:array[1..nmax] of real;
    n,i,j,imx,jmx:byte;
    mxr,mxo:real;
begin
clrscr;
randomize;
repeat
write('Количество точек от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  x[i]:=10*random-4;
  y[i]:=10*random-4;
 end;
writeln('Координаты:');
write('X');
for i:=1 to n do
write(x[i]:5:1);
writeln;
write('Y');
for i:=1 to n do
write(y[i]:5:1);
writeln;
writeln;
mxo:=sqrt(sqr(x[1]-x[2])+sqr(y[1]-y[2]));
mxr:=sqrt(sqr(x[1])+sqr(y[1]));
imx:=1;
for i:=1 to n-1 do
for j:=i+1 to n do
if sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))>mxo then
mxo:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))
else if sqrt(sqr(x[i])+sqr(y[i]))>mxr then
 begin
  imx:=i;
  jmx:=j;
 end;
writeln('Максимально удалена от начала координат точка ',imx);
writeln('Отрезок максимальной длины = ',mxo:0:2);
readln
end.