[ecfisa]

Hola irurueta.

Tal vez te resulte mas simple organizarlo de forma similar a esta:

Código Delphi [-]
type
  TProducto = record
    ContE : Integer;
    Desc  : Real;
    Aux   : Real;
    Porc  : Real;
    Tot   : Real;
  end;

procedure calc_desc(p1, p2, p3, p4, p5: TProducto);
begin
  p1.Aux := 130 * p1.ContE;
  if p1.Aux > 1300 then
  begin
    p1.Porc := p1.Aux * 0.1;
    p1.Desc := p1.Porc - p1.Aux;
    p1.Tot  := p1.Aux -p1.Porc;
    ...

Saludos