Определить минимальное расстояние от точек до начала координат и сумму всех расстояний

{На плоскости 5 точек заданы своими координатами:
(1.2; -1), (0.9; 4),(0; 1),(-0.9; 2.4),(3; 1.3).
Определить минимальное расстояние от точек до начала координат и сумму всех расстояний. }
uses crt;
type point=record
           x,y:real;
           end;
const n=5;
     a:array[1..n] of point=((x:1.2;y:-1),(x:0.9;y:4),(x:0;y:1),(x:-0.9;y:2.4),(x:3;y:1.3));
var i:byte;
    mn,sm:real;
begin
writeln('Координаты точек:');
write('  ');
for i:=1 to n do
write(i:5);
writeln;
write('X:');
for i:=1 to n do
write(a[i].x:5:1);
writeln;
write('Y:');
for i:=1 to n do
write(a[i].y:5:1);
writeln;
mn:=sqrt(sqr(a[1].x)+sqr(a[1].y));
sm:=mn;
for i:=2 to n do
 begin
  if sqrt(sqr(a[i].x)+sqr(a[i].y))<mn then mn:=sqrt(sqr(a[i].x)+sqr(a[i].y));
  sm:=sm+sqrt(sqr(a[i].x)+sqr(a[i].y));
 end;
writeln('Минимальное расстояние до начала координат=',mn:0:2);
writeln('Сумма расстояний=',sm:0:2);
end.

{На плоскости 5 точек заданы своими координатами:
(1.2; -1), (0.9; 4),(0; 1),(-0.9; 2.4),(3; 1.3).
Определить минимальное расстояние от точек до начала координат и сумму всех расстояний. }
uses crt;
const n=5;
     a:array[1..n,1..2] of real=((1.2,-1),(0.9,4),(0,1),(-0.9,2.4),(3,1.3));
var i:byte;
    mn,sm:real;
begin
writeln('Координаты точек:');
write('  ');
for i:=1 to n do
write(i:5);
writeln;
write('X:');
for i:=1 to n do
write(a[i,1]:5:1);
writeln;
write('Y:');
for i:=1 to n do
write(a[i,2]:5:1);
writeln;
mn:=sqrt(sqr(a[1,1])+sqr(a[1,2]));
sm:=mn;
for i:=2 to n do
 begin
  if sqrt(sqr(a[i,1])+sqr(a[i,2]))<mn then mn:=sqrt(sqr(a[i,1])+sqr(a[i,2]));
  sm:=sm+sqrt(sqr(a[i,1])+sqr(a[i,2]));
 end;
writeln('Минимальное расстояние до начала координат=',mn:0:2);
writeln('Сумма расстояний=',sm:0:2);
end.