Среди точек, заданных координатами, найти точку, наименее удаленную от начала координат

var
  x1, y1, d1 : real;
  x2, y2, d2 : real;
begin
  write('Введите координаты 1-й точки: (X,Y) '); readln (x1, y1);
  write('Введите координаты 2-й точки: (X,Y) '); readln (x2, y2);
  d1:=sqrt(sqr(x1) + sqr(y1));
  d2:=sqrt(sqr(x2) + sqr(y2));
  if d1>d2 then
    writeln('Вторая точка ближе к началу координат .')
  else
    if d2>d1 then
      writeln ('Первая  ближе точка к началу координат.')
    else
      writeln ('Точка находятся на одинаковом расстоянии.');
  readln;
end.

var
  x, y : array[1..100] of real; 
  i,n,m:integer;
begin
  write('n=');readln(n);
  m:=1;
  for i:=1 to n do begin
    write('Введите координаты ',i,'-й точки: (X,Y) '); readln (x[i], y[i]);
    if sqrt(sqr(x[i])+sqr(y[i]))<sqrt(sqr(x[m])+sqr(y[m])) then m:=i;
  end;
  writeln('Точка с координатами: x=',x[m]:0:2,' y=',y[m]:0:2,' ближе всех к началу координат');
  
end.

var
  x, y,x1,y1 : real; 
  n:integer;
begin
  write('n=');readln(n);
  for n:=1 to n do begin
    write('Введите координаты ',n,'-й точки: (X,Y) '); readln (x, y);
    if (sqrt(sqr(x)+sqr(y))<sqrt(sqr(x1)+sqr(y1))) or (n=1) then begin x1:=x;y1:=y;end;
  end;
  writeln('Точка с координатами: x=',x1:0:2,' y=',y1:0:2,' ближе всех к началу координат');
end.