If then else schleife mit Proceduren

[Kiasu]

Hey ich hab da nen kleines Problem.
Ich möchte eine Schleife zusammenstellen...
Bei eingabe einer Zahl soll die entsprechnde Procedure aufgerufen werden.

if v_zahl=1 then begin
procedure richtig;
else procedure falsch;
end;
end;

ich habs mit case of versucht aber das klappte auch nicht...brauch unbedingt hilfe....

Vielen Dank schonmal....

[taaktaak]

Delphi-Quellcode:

if v_zahl=1 then richtig
            else falsch;

[API]

Hinweis: http://www.if-schleife.de/

[Kiasu]

also das mit der procedure richtig klappte ja schon vorher, aber wenn ich 2 eingebe wird die Procedure abfrage wiederhold und es kommt nich die Procedure falsch!? Könntet ihr mir da nochmal helfen?

Delphi-Quellcode:

Procedure richtig;
begin
    writeln('');
    writeln('');
    writeln( '                       '#218#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#191'');
    writeln('                       '#179' richtig!!!  Love=Liebe '#179' ');
    writeln( '                       '#192#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#217'');
    readln;
end;

Procedure falsch;
begin
    writeln('');
    writeln('');
    writeln( '                       '#218#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#191'');
    writeln('                       '#179' falsch!!!  Love=Liebe  '#179' ');
    writeln( '                       '#192#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#217'');
    readln;
end;


procedure abfrage;
begin
    repeat
   writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('                 Geben Sie die richtige Zahl ein      Love=?');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
   writeln('                      1. Liebe   2.  Herz  3. Leben ');
     writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
   readln(v_zahl);
    until (v_zahl=1);
    if v_zahl=1 then richtig else falsch;

end;

[edit=mkinzler]Delphi-Tags eingefügt; Code eingerückt Mfg, mkinzler[/edit]

[Kiasu]

okey hat sich erledigt

[craash]

edit zu spät..