Сгенерировать точки на экране

type point=record
           x,y,z,r:real; //координаты и расстояние от начала координат
           end;
     mas=array[1..20] of point;//массив точек
//рекурсивная функция определения суммы расстояний
function summa(a:mas;n:integer):real;
begin
if n=1 then summa:=a[1].r
else summa:=summa(a,n-1)+a[n].r;
end;
 
var a:mas;
    n,i,imx:integer;
begin
repeat
write('Введите количество точек от 2 до 20  n=');
readln(n);
until n in [2..20];
randomize;
for i:=1 to n do
 begin
  a[i].x:=-100+random(200);
  a[i].y:=-100+random(200);
  a[i].z:=-100+random(200);
  a[i].r:=sqrt(sqr(a[i].x)+sqr(a[i].y)+sqr(a[i].z));
 end;
writeln('Точки');
writeln('------------------------------------------');
writeln('|     |      координаты       |расстояние|');
writeln('|номер|-----------------------|от  начала|');
writeln('|     |   x   |   y   |   z   |координат |');
writeln('------------------------------------------');
imx:=1;
for i:=1 to n do
 begin
  writeln('|',i:4,' |',a[i].x:7:2,'|',a[i].y:7:2,'|',a[i].z:7:2,'|',a[i].r:8:2,'  |');
  if a[i].r>a[imx].r then imx:=i;
 end;
writeln('------------------------------------------');
writeln('Самая удаленная точка ',imx,' расстояние=',a[imx].r:0:2);
writeln('Сумма всех расстояний=',summa(a,n):0:2);
 
end.