Последовательность из n точек плоскости задана массивами Х [1 .. n] и Y [1 .. n] координат. Составить программу поиска точки, наименее удалена от начала координат — Pascal(Паскаль)

uses crt;
const nmax=100;
var x,y:array[1..nmax] of real;
    n,i,j,imn:byte;
    mn:real;
begin
clrscr;
randomize;
repeat
write('Количество точек от 2 до ',nmax,' n=');
readln(n);
until n in [1..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;
mn:=sqrt(sqr(x[1])+sqr(y[1]));
imn:=1;
for i:=1 to n do
if sqrt(sqr(x[i])+sqr(y[i]))<mn then
 begin
  mn:=sqrt(sqr(x[i])+sqr(y[i]));
  imn:=i;
 end;
writeln('Минимальное расстояние до начала координат имеет точка');
write('номер ',imn,' = ',mn:0:2);
readln
end.