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

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.