Schau mal ind
OH nach CASE, es ist übersichtlicher als soviele IF Abfragen.
zum Thema Schleife gibt es mehrere Möglichkeiten
Delphi-Quellcode:
repeat
hier die CASE Anweisung
until c=0;
Delphi-Quellcode:
While c < 0 do
Begin
hier die CASE Anweisung
end;
oder du zählst c solange hoch bis Dein Anfangswert erreicht ist.