Требует ввести название функции во время использования abs(x)

program pr10;
 type masiv=array[1..100] of integer;
 var i,n,modul:integer;
     a:masiv;
 procedure pke(a:masiv; var left,right:integer);
 var abs,i,n,x,b:integer;
 begin
  for i:=1 to n do
   begin
    left:=0;
    right:=0;
    b:=a[i];
    modul:=abs(a[i]);
    for i:=1 to n do
     begin
      b>abs then left:=left+1;
     end;
    x:=0;
    n:=i;
    abs:=abs(a[i-x]);
    for i:=1 to n do
     begin
      if b<abs then
       begin
        right:=right+1;
        x:=x+1
      else x:=x+1;
 end;
 begin
  writeln('Vvedite n');
  readln(n);
  for i:=1 to n do
   begin
    writeln('Vvedite a');
    readln(a[i]);
   end;
  for i:=1 to n do
   begin
    writeln('Слева - ',left,'  ','Справа - ',right);
   end;
 end.