Нет перегруженной подпрограммы с таким количеством параметров

uses graphABC;
 var gx,gy,x0,y0:integer;{переменным присваиваем целочисленный тип данных}
 A,x:real;
 begin
   gx:= 900;
   gy:= 800;{устанавливаем переменным значения}
   setwindowsize (gx,gy);{установаливаем размер окна}
   x0:=gx div 2;
   y0:=gy div 2;
   x:=0.1;
   A := arccos(1-2*(8.29-11.52*x*sin(0,261799)+4*x*x*sin(0,261799)*sin(0,261799))/81)/(2*Pi)*4;
   
   
 end.

uses graphABC;
 var gx,gy,x0,y0{м}:integer;{переменным присваиваем целочисленный тип данных}
 r{м},x,k,n,{коэфф. расхода}
 L1,A1,Q1,S11,S12,S1,H1,dP1,x1,y1,
 L2,A2,Q2,S21,S22,S2,H2,dP2,
 L3,A3,Q3,B3,S31,S32,S3,H3,dP3,
 L4,A4,Q4,B4,S41,S42,S4,H4,dP4:real;
 begin
    gx:= 1200;{устанавливаем значения в пикселях}
    gy:= 1000;{устанавливаем значения в пикселях}
    setwindowsize (gx,gy);{устанавливаем размер окна}
    x0:=gx div 2;{центр х}
    y0:=gy div 2;{центр y}
    line(600,0,600,1000);
    line(0,500,1200,500);
    k:=200000;{масштаб х,y}
    r:= 0.0045;{радиус золотника,метр}
    n:=0.6;{назначаем коэффициент расхода жидкости} 
   
    x:=-0.002{метр};
    while x<0.002 do
    begin
    
    
    
    
    
    
    
    {Площадь первого отверстия как функция х}
    L1:=0.001-sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
    if L1<0.001 then L1:=0.001;
    //writeln ('длина хорды L =',L1);
    
    A1 := arcsin(L1/(2*r));{вычисление угла}
    //writeln ('Половинный угол в радианах A1 =',A1);
   
    
   
    x1:=x0+x*k;{координата х относительно центра}
    y1:=y0+Q1*k;{координата у относительно центра}
   
    S11:=Pi*r*r*2*A1/(2*Pi)-0.5*Sqr(r)*sin(2*A1);{площадь сегмента} 
    //writeln ('площадь сегмента S11 =',S11);
   
    H1:= 0.0005-L1/2*(sin(A1/2)/cos(A1/2));{высота прямоугольной части отверстия} 
    //writeln ('Высота прямоугольной части отверстия H =',H1);
    S12:=L1*H1;{площадь прямоугольной части отверстия}
    //writeln ('площадь прямоугольной части отверстия S12 =',S12);
    
    S1:=S11+S12;
    //writeln ('Площадь отверстия f1 =',S1:0:15);
    
    {Падение давления на первом отверстии}
    
    dP1:=(sqr(Q1)*2*sqr(n)*sqr(S1));
    
    
    
    
    
    
    
    
    
    {Площадь второго отверстия как функция х}
   L2:=0.001+sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
    if L2<0.001 then L2:=0.001;
   // writeln ('длина хорды L2 =',L2);
    
    A2 := arcsin(L2/(2*r));{вычисление угла}
    //writeln ('Половинный угол в радианах A2 =',A2);
   
    S21:=Pi*r*r*2*A2/(2*Pi)-0.5*Sqr(r)*sin(2*A2);{площадь сегмента} 
   // writeln ('площадь сегмента S21 =',S21);
   
    H2:= 0.0005-L2/2*(sin(A2/2)/cos(A2/2));{высота прямоугольной части отверстия} 
    //writeln ('Высота прямоугольной части отверстия H2 =',H2);
    S22:=L2*H2;{площадь прямоугольной части отверстия}
    //writeln ('площадь прямоугольной части отверстия S22 =',S22);
    
    S2:=S21+S22;
   // writeln ('Площадь отверстия f2 =',S2:0:15);
    
    
    
    
    {Площадь третьего отверстия как функция х}
   L3:=0.00184+sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
   B3:=arcsin(Abs(x+0.0015)/0.0005);
    if L3<0.00097 then L3:=0.0005*cos(B3)*2;
    
    //writeln ('длина хорды L3 =',L3);
    
    A3 := arcsin(L3/(2*r));{вычисление угла}
    //writeln ('Половинный угол в радианах A3 =',A3);
   
    S31:=Pi*r*r*2*A3/(2*Pi)-0.5*Sqr(r)*sin(2*A3);{площадь сегмента} 
   // writeln ('площадь сегмента S31 =',S31);
   
    H3:= 0.0005-L3/2*(sin(A3/2)/cos(A3/2));{высота прямоугольной части отверстия} 
    //writeln ('Высота прямоугольной части отверстия H3 =',H3);
    S32:=L3*H3;{площадь прямоугольной части отверстия}
    //writeln ('площадь прямоугольной части отверстия S32 =',S32);
    
    S3:=S31+S32;
    //writeln ('Площадь отверстия f3 =',S3:0:15);
    
    
    
    {Площадь четвертого отверстия как функция х}
   L4:=0.00184-sin(0.2618)/cos(0.2618)*2*x;{длина хорды}
   B4:=arcsin(Abs(x-0.0015)/0.0005);
    if L4<0.00097 then L4:=0.0005*cos(B4)*2;
    
    //writeln ('длина хорды L4 =',L4);
    
    A4 := arcsin(L4/(2*r));{вычисление угла}
    //writeln ('Половинный угол в радианах A4 =',A4);
   
    S41:=Pi*r*r*2*A4/(2*Pi)-0.5*Sqr(r)*sin(2*A4);{площадь сегмента} 
   // writeln ('площадь сегмента S41 =',S41);
   
    H4:= 0.0005-L4/2*(sin(A4/2)/cos(A4/2));{высота прямоугольной части отверстия} 
    //writeln ('Высота прямоугольной части отверстия H4 =',H4);
    S42:=L4*H4;{площадь прямоугольной части отверстия}
    //writeln ('площадь прямоугольной части отверстия S42 =',S42);
    
    S4:=S41+S42;
    //writeln ('Площадь отверстия f4 =',S4:0:15);
    end;