Ayuda con error "Not enough actual parameters"

[irurueta]

Empezado por AgustinOrtu

Bienvenido

No se ve nada en las imágenes, sería mejor que nos copies el código y nos digas cual es el error

Código Delphi [-]
procedure calc_desc(contE_1,contE_2,contE_3,contE_4,contE_5:integer;var desc_1,desc_2,desc_3,desc_4,desc_5:real;
                             var aux_1,aux_2,aux_3,aux_4,aux_5:real;var porc1,porc2,porc3,porc4,porc5:real;var tot1,tot2,tot3,tot4,tot5:real);
//Calcular descuento.
begin
 aux_1:=130*contE_1;
 if aux_1>1000 then
  begin
  porc1:=aux_1*0.1;
  desc_1:=porc1-aux_1;
  tot1:=aux1-porc1

Código Delphi [-]
calc_desc(cont1,cont2,cont3,cont4,cont5,desc1,desc2,desc3,desc4,desc5,aux1,aux2,
 aux3,aux4,aux5,tot1,tot2,tot3,tot4,tot5); //aca me tira error :

[Error] Project2.dpr(224): Not enough actual parameters

Código Delphi [-]
 if aux1>1000 then
  begin
  writeln('El producto 1 tiene un descuento del 10%, debe pagar $',tot1:8:2);
  end;