Pascal-Rechenprogramm: Fussschleife

[FreePascal]

Hallo, ich bin neu hier im Forum und programmiere so ein bisschen nebenbei in FreePascal.
Jetzt habe ich es geschafft ein Rechenprogramm zu erstellen, das alle 4 Grundrechungsarten beherrscht, mit einer CASE ... OF Verknüpfung. Nun habe ich mir vorgenommen eine fußgesteuerte Schleife einzubauen, komme aber leider nicht weiter. Wäre nett wenn mir bitte irgendwer weiterhelfen könnte, danke weil ich bin echt bald am verwzeifeln .
Das habe ich bereits programmiert:

Delphi-Quellcode:

program fussschleife;
uses crt;
var name:string;
         Zahl1,Zahl2,summe,diff,prod,ergebnis:longint;
         quo:real;
         auswahl:char;


begin

clrscr;

writeln('Hallo, lieber Benutzer, bitte gib deinen Vornamen ein');
readln(name);
writeln('Herzlich willkommen, lieber ',name,'!');
writeln('dieses Programm beherrscht alle 4 Grundrechnungsarten!');
writeln('Für Addition A drücken, für Subtrakion S drücken, für Multiplikation M drücken und für Division D drücken!');


readln(auswahl);
auswahl:=UPCASE(auswahl);
IF (auswahl='A') OR (auswahl='S') OR (auswahl='M') OR (auswahl='D')
THEN
     begin
          writeln('Bitte gib die erste Zahl ein!');
          readln(Zahl1);
           writeln('Bitte gib jezt die zweite Zahl ein!');
           readln(Zahl2);
          CASE auswahl OF
               'A':begin
                 summe=:Zahl1+Zahl2;
                writeln('Die sUmme beträgt ',summe,'!');
                'S':begin
                 diff=:Zahl1-Zahl2;
                  writeln('Die Differenz beträgt ',diff,'!');
                  'M':begin
                  prod=:Zahl1*Zahl2;
                  writeln('Das Produkt beträgt ',prod,'!');
                    'D':begin
                  quo=:Zahl1/Zahl2;
                  writeln('Der Quotient beträgt ',quo:10:2,'!');
                  end;
        end;
end 
ELSE
writeln('Falsche Eingabe! Programmabbruch!');
readln;
end.

So weit, so gut.
Ich bin echt am verzweifeln. Wo kann ich hier bitte die fussschleife einbauen. Wäre nett, wenn mir das bitte jemand sagen könnte, wie und wohin die fusschleife da reingehört

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]