Помогите написать программу в паскале

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.