Даны 2 точки A(x1,y1) и B(x2,y2). Определить, какой из отрезков, OA или OB, образует больший угол с осью OX

//функция определения угла по 1 точке
function ugol(x,y:real):real;
var r,c:real;
begin
r:=sqrt(x*x+y*y);//расстояние от центра до точки
c:=x/r; //косинус угла
if y>0 then ugol:=arccos(c)//вершина выше цнтра
else ugol:=2*pi-arccos(c);  //ниже или = y1
end;
var x1,y1,x2,y2:real;
begin
writeln('Введите координаты точки А');
readln(x1,y1);
writeln('Введите координаты точки B');
readln(x2,y2);
if ugol(x1,y1)>ugol(x2,y2) then write('Отрезок ОА образует больший угол с осью Х')
else 
if ugol(x1,y1)<ugol(x2,y2) then write('Отрезок ОB образует больший угол с осью Х')
else write('Отрезки образуют одинаковый угол (совпадают)')
end.

var x1,y1,x2,y2,r,c,u1,u2:real;
begin
writeln('Введите координаты точки А');
readln(x1,y1);
writeln('Введите координаты точки B');
readln(x2,y2);
r:=sqrt(x1*x1+y1*y1);
c:=x1/r; 
if y1>0 then u1:=arccos(c)
else u1:=2*pi-arccos(c); 
r:=sqrt(x2*x2+y2*y2);
c:=x2/r; 
if y2>0 then u2:=arccos(c)
else u2:=2*pi-arccos(c); 
if u1>u2 then write('Отрезок ОА образует больший угол с осью Х')
else 
if u1<u2 then write('Отрезок ОB образует больший угол с осью Х')
else write('Отрезки образуют одинаковый угол (совпадают)')
end.

begin
  var(x1,y1):=ReadReal2('Координаты точки A:');
  var(x2,y2):=ReadReal2('Координаты точки B:');
  if (x1=0)and(x2=0) then WriteLn('Нет углов!')
  else if x1=0 then WriteLn('Отрезок OB')
  else if x2=0 then WriteLn('Отрезок OA')
  else case sign(Abs(y1/x1)-Abs(y2/x2)) of
    +1 : WriteLn('Отрезок OA');
    -1 : WriteLn('Отрезок OB');
  else WriteLn('Одинаковые углы');
  end;
end.

program tochki;
 
uses crt;
 
var
  c, c1, x1, x2, y1, y2: real;
 
begin
  writeln('vvedite koordinaty t A : x y');
  read(x1, y1);
  writeln('vvedite koordinaty t B : x y');
  read(x2, y2);
  c := sqrt(sqr(x1) + sqr(y1));
  c1 := sqrt(sqr(x2) + sqr(y2));
  if c < c1 then writeln('t a(', x1:3:2, ',', y1:4:2, ') blije ')
   else
  if c = c1 then writeln('odinakovo')
  else writeln('t B (', x2:3:2, ',', y2:4:2, ') blije ');
  readln;
end.

u1 := arccos(c)

u1:=2*pi-arccos(c);

else case sign(Abs(y1/x1)-Abs(y2/x2)) of