In ablauf ist der Rückgabewert von tarif 0, falls Das Gewicht < 0 oder > 100. Somit müsstest du dem < 0 einen anderen Tarif zuordnen um ihn von über 100 zu unterscheiden. Das dann wie gehabt prüfen. Statt tarif(gw) <> 0 zum Beispiel: t = tarif(gw); if t = 1 then ... else if t = ...
Edit: Bzw. die Eingabe vor der Berechnung prüfen.