Помогите пожалуйста. Даны две точки на плоскости. Напишите программу, определяющую какая из этих точек находится ближе к началу координат.

function VectorLength(x, y: real): real; begin     VectorLength := sqrt(x * x + y * y); end; var     x1, x2, y1, y2: real; begin     readln(x1, y1);     readln(x2, y2);     if VectorLength(x1, y1) > VectorLength(x2, y2) then         writeln('Point1')     else writeln('Point2'); end.