помогите с комментариями к строкам написали программы, работают, но не понимаем что написано

[Alexander_Petrenko]

В одномерном массиве с количеством элементов 2N содержатся координаты N точек плоскости. Они располагаются в следующем порядке:x1,y1,x2,y2,x3,y3....и так далее. Определить минимальный радиус окружности с центром в начале координат, такой, что окружность содержит все точки.

uses crt;
const nmax=15;
var a:array[1..2*nmax] of real;
n,i,j:integer;
r:real;
begin
clrscr;
randomize;
repeat
write('Количество точек до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to 2*n do
a[i]:=-9+19*random;
writeln('Координаты точек:');
write(' ');
for i:=1 to n do
write(i:5);
writeln;
write('X:');
for i:=1 to n do
write(a[2*i-1]:5:1);
writeln;
write('Y:');
for i:=1 to n do
write(a[2*i]:5:1);
writeln;
r:=sqrt(sqr(a[1])+sqr(a[2]));
for i:=3 to n-1 do
if sqrt(sqr(a[i])+sqr(a[i+1]))>r then r:=sqrt(sqr(a[i])+sqr(a[i+1]));
write('Минимальный радиус=',r:0:1);
readln
end.