const TraegerTyp: array [1..18] of integer = (80,100,120,140,160,180,200,220,240,270,300,330,360,400,450,500,550,600);


//Berechnung des Gewichtes eines I-Träger + Typzuweisung
for a := 1 to 6 do
begin
  if (Widerstandsmomente_array[a] >= 1) and (Widerstandsmomente_array[a] <= 20) then
  begin
  KGItraeger_array[a] := (LaengeITraeger_array[a]/1000) * MproKilo[1]; //MproKilo= kg/m ; LaengeITraeger in m umrechnen
  ITraegerTyp := TraegerTyp[1];
  end;

for a := 1 to 6 do

begin
//1.
case ITraegertyp of Traegertyp [1,2,3,4]:
  if (GewichtItraeger_array[a] > 0) and (GewichtItraeger_array[a] <= 399)
  then
  GesamtpreisI_array[a] := (GewichtItraeger_array[a])/1000 * EuroproTonne[1]
  else begin
  if (GewichtItraeger_array[a] >= 400 ) and (GewichtItraeger_array[a] <= 999)
  then
  GesamtpreisI_array[a] := (GewichtItraeger_array[a])/1000 * EuroproTonne[2]
  else begin
  if (GewichtItraeger_array[a] >=1000)
  then
  GesamtpreisI_array[a] := (GewichtItraeger_array[a])/1000 * EuroproTonne[3];

  end;
  end;