Заданы координаты 10 точек.Найти точку самую дальнюю от начала координат и найти расстояние.

uses crt;
const n=10;{количество точек}
var i,j,k,imax:integer;
    max:real;
    a:array[1..2,1..n]of real;{массив координат}
begin
clrscr;
randomize;
writeln('Massiv koordinat:');
for i:=1 to n do
write(i:7);{выводим номера точек}
writeln;
for i:=1 to 2 do
   begin
     for j:=1 to n do
       begin
         a[i,j]:=20*random-9;
         write(a[i,j]:7:2);{выводим координаты}
       end;
     writeln;
   end;
max:=0;imax:=1;
for i:=1 to n do
if sqrt(a[1,i]*a[1,i]+a[2,i]*a[2,i])>max then
  begin
    max:=sqrt(a[1,i]*a[1,i]+a[2,i]*a[2,i]);{максимальное расстояние}
    imax:=i;{номер точки}
  end;
writeln('Maximalnae rasstoyanie=',max:5:2);
writeln('Tochka #',imax,' ee koordinaty [',a[1,imax]:5:2,';',a[2,imax]:5:2,']');
readln
end.

uses crt;
const n=10;
function Rasst(x,y:real):real;
begin
Rasst:=sqrt(x*x+y*y);
end;
var i,j,k,imax:integer;
    dl,max:real;
    a:array[1..2,1..n]of real;
begin
clrscr;
randomize;
writeln('Massiv koordinat:');
for i:=1 to n do
write(i:7);
writeln;
for i:=1 to 2 do
   begin
     for j:=1 to n do
       begin
         a[i,j]:=20*random-9;
         write(a[i,j]:7:2);
       end;
     writeln;
   end;
max:=0;imax:=1;
for i:=1 to n do
if Rasst(a[1,i],a[2,i])>max then
  begin
    max:=Rasst(a[1,i],a[2,i]);
    imax:=i;
  end;
writeln('Maximalnae rasstoyanie=',max:5:2);
writeln('Tochka #',imax,' ee koordinaty [',a[1,imax]:5:2,';',a[2,imax]:5:2,']');
readln
end.