If then else schleife mit Proceduren

[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]