Даны координаты двух точек a(x1,y2) и b(x2,y2) в прямоугольной системе координат.какая из этих двух точек находится дальше от начала координат?

Var
x1,x2,y1,y2:real;
begin
writeln('Введите координаты точки А');
readln(x1,y1);
writeln('Введите координаты точки В');
readln(x2,y2);
if (sqrt(sqr(x1)+sqr(y1)))>(sqrt(sqr(x2)+sqr(y2)))  then
writeln('А дальше')
else
if (sqrt(sqr(x1)+sqr(y1)))<(sqrt(sqr(x2)+sqr(y2)))  then
writeln('В дальше')
else
writeln('Расстояние одинаковое');
end.