Помогите написать программу в паскале. Задание:На плоскости даны 2 точки А (х1; у2) и В (х2; у2), определить какая из них находится дальше от начала координат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу

program prog;var x1,x2,y1,y2,i,b:integer;begin;writeln('Введите 4 точки: x1, y1; x2, y2');readln(x1,y1,x2,y2);i:=abs(x1+y1);b:=abs(x2+y2);if i=b then writeln('Координаты находятся на одной точке') else beginif i>b then writeln('Первая координата дальше') else writeln('Вторая координата дальше');end;end.