Tabellen + Schleifen usw.

[Cöster]

Erstmal würde ich dir empfehlen, eindeutige Bezeichner zu verwenden. Denn wenn du dir das Programm 2 Wochen mal nicht anguckst, weißt du sicher nicht mehr, was a, b, c, g, n, i, k, listbox2 und listbox3 sind.

Ich nehme an, a ist der Vorrat, b die jährliche Förderung und c der Förderungszuwachs. Innerhalb der Schleife while Vorrat > 0 müsstest du die Förderung bereits verändern:Foerderung := Foerderung * Zuwachs;