Pascal N-IDE, оператор function, ошибка "слишком мало или слишком много аргументов передаются функции arccos"

program gg;
uses crt;
var x1,x2,x3,x4,y1,y2,y3,y4: integer;
a,b,c,d,n,k,l,m:real;
L1,L2,L3,L4:real;
L1_x,L1_y,L2_x,L2_y,L3_x,L3_y,L4_x,L4_y:real;
function arccos(n,k,l,m:real):real;
begin
writeln('Координаты точек задаются последовательно, против часовой стрелки.');
writeln('Первая точка - левая вехрняя, вторая - левая нижняя, третья - правая нижняя,');
writeln('четвертая - правая верхняя'); 
write('x1 ='); 
readln(x1);
write('y1 ='); 
readln(y1);
write('x2 =');
readln(x2);
write('y2 ='); 
readln(y2);
write('x3 ='); 
readln(x3);
write('y3 ='); 
readln(y3);
write('x4 ='); 
readln(x4);
write('y4 ='); 
readln(y4);
 
L1_x:=x2-x1;
L1_y:=y2-y1;
L2_x:=x3-x2;
L2_y:=y3-y2;
L3_x:=x4-x3;
L3_y:=y4-y3;
L4_x:=x1-x4;
L4_y:=y1-y4;
 
L1:=sqrt(sqr(x2-x1)+sqr(y2-y1));
L2:=sqrt(sqr(x3-x2)+sqr(y3-y2));
L3:=sqrt(sqr(x4-x3)+sqr(y4-y3));
L4:=sqrt(sqr(x1-x4)+sqr(y1-y4));
n:=((abs(L1_x*L2_x+L1_y*L2_y))/L1*L2);
a:=arccos(n);
k:=((abs(L2_x*L2_x+L3_y*L3_y))/L2*L3);
b:=arccos(k);
m:=((abs(L3_x*L3_x+L4_y*L4_y))/L3*L4);
c:=arccos(m);
l:=((abs(L4_x*L1_x+L4_y*L1_y))/L4*L1);
d:=arccos(l);
end;
begin
if (a=pi/2) and (c=pi/2) and (L1=L2) 
then writeln('Это квадрат')
else 
 
  if (a=pi/2) and (c=pi/2) and (L1<>L2) 
  then writeln('Это прямоугольник')
  else
      
      if (a<>pi/2) and (c<>pi/2) and (a=c) and (b=d) and (L1=L3) and (L2=L4) and (L1<>L2) and (L3<>L4)
      then writeln('Это параллелограмм')
      else
       
          if (a<>pi/2) and (c<>pi/2) and (a=c) and (b=d) and (L1=L2) and (L2=L3) and (L3=L4) and (L4=L1)
          then writeln('Это ромб')
          else 
 
               if  ((a+d=pi) and (b+c=pi)) or ((a+b=pi) and (c+d=pi))
               then writeln('Это трапеция')
               else writeln('Это четырехугольник');
readln;
end.

function acos(x:real):real;
begin
if x=0 then acos:=pi/2
else if (x>0)and(x<=1) then acos:=arctan(sqrt(1-x*x)/x)
else if(x>=-1)and(x<0) then acos:=pi+arctan(sqrt(1-x*x)/x);
end;

program gg;
uses crt;
function acos(x:real):real;
begin
if x=0 then acos:=pi/2
else if (x>0)and(x<=1) then acos:=arctan(sqrt(1-x*x)/x)
else if(x>=-1)and(x<0) then acos:=pi+arctan(sqrt(1-x*x)/x);
end;
var x1,x2,x3,x4,y1,y2,y3,y4: integer;
a,b,c,d,n,k,l,m:real;
L1,L2,L3,L4:real;
L1_x,L1_y,L2_x,L2_y,L3_x,L3_y,L4_x,L4_y:real;
begin
writeln('Координаты точек задаются последовательно, против часовой стрелки.');
writeln('Первая точка - левая вехрняя, вторая - левая нижняя, третья - правая нижняя,');
writeln('четвертая - правая верхняя');
write('x1 =');
readln(x1);
write('y1 =');
readln(y1);
write('x2 =');
readln(x2);
write('y2 =');
readln(y2);
write('x3 =');
readln(x3);
write('y3 =');
readln(y3);
write('x4 =');
readln(x4);
write('y4 =');
readln(y4);
L1_x:=x2-x1;
L1_y:=y2-y1;
L2_x:=x3-x2;
L2_y:=y3-y2;
L3_x:=x4-x3;
L3_y:=y4-y3;
L4_x:=x1-x4;
L4_y:=y1-y4;
 
L1:=sqrt(sqr(x2-x1)+sqr(y2-y1));
L2:=sqrt(sqr(x3-x2)+sqr(y3-y2));
L3:=sqrt(sqr(x4-x3)+sqr(y4-y3));
L4:=sqrt(sqr(x1-x4)+sqr(y1-y4));
n:=((abs(L1_x*L2_x+L1_y*L2_y))/L1*L2);
a:=acos(n);
k:=((abs(L2_x*L2_x+L3_y*L3_y))/L2*L3);
b:=acos(k);
m:=((abs(L3_x*L3_x+L4_y*L4_y))/L3*L4);
c:=acos(m);
l:=((abs(L4_x*L1_x+L4_y*L1_y))/L4*L1);
d:=acos(l);
 
if (a=pi/2) and (c=pi/2) and (L1=L2)
then writeln('Это квадрат')
else
 
  if (a=pi/2) and (c=pi/2) and (L1<>L2)
  then writeln('Это прямоугольник')
  else
 
      if (a<>pi/2) and (c<>pi/2) and (a=c) and (b=d) and (L1=L3) and (L2=L4) and (L1<>L2) and (L3<>L4)
      then writeln('Это параллелограмм')
      else
 
          if (a<>pi/2) and (c<>pi/2) and (a=c) and (b=d) and (L1=L2) and (L2=L3) and (L3=L4) and (L4=L1)
          then writeln('Это ромб')
          else
 
               if  ((a+d=pi) and (b+c=pi)) or ((a+b=pi) and (c+d=pi))
               then writeln('Это трапеция')
               else writeln('Это четырехугольник');
readln;
end.