[Nyctos Kasignete]

Код:

var
  Dist1, Dist2: Double;
  x1, x2, y1, y2: Double;
begin
  Dist1 := Sqrt(x1 * x1 + y1 * y1);
  Dist2 := Sqrt(x2 * x2 + y2 * y2);
  if Dist1 < Dist2 then ShowMessage('Точка A ближе к началу координат!')
  else ShowMessage('Точка B ближе к началу координат!');
end;