Tabellen + Schleifen usw.

[Nispuk]

Hi leute,
ich hoffe ihr könnt mir weiter helfen habe ein riesiges Problem. Hab eine Schulaufgabe die ich net versteh!!!

Folgende Aufgabe: Erdölvorrat
Eingabe von Vorrat, jährliche Förderung, jährliche Steigerung der Förderung %, Ausgabe:Ende der Förderung und Tabelle des Verlaufs

So sieht mein Quelltext aus aber da funzt gar nichts außer die erste while schleife.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
a, b, c, g: integer;
n: String;
i: String;
k: String;

begin
a := strtoint(edit1.text);
b := strtoint(edit2.text);
c := strtoint(edit2.text);


while a > 0 do begin a:= a-b;
i:= inttostr(a);
listbox2.items.Add(i)end;


while b > 0 do begin b:= ((b / 100) * c) + b;
n:= inttostr(b);
listbox3.items.Add(n)end;


end;

end.

HIFE!!!!!!!!

[edit=Dax]Delphi-Tags.. Beim nächsten mal bitte selbst dran denken. Mfg, Dax[/edit]