Das soll ein Vokabeltrainer werden...

[Kiasu]

Das soll ein Vokabeltrainer werden...
Die Eingabe von a, wrong, wrong2 und right funktioniert, aber die ausgabe nicht, es werden jeweils nur die anfangsbuchstaben ausgegeben. HILFE! hab keine Ahnung was daran falsch ist....danke!!!!!
-----------------------------------------------------------------------------
Procedure eingeben;

begin
writeln(' geben Sie ihr englisches Wort ein');
readln(a);
writeln(' geben Sie nun die richtige Antwort ein');
readln(right);
writeln(' geben Sie nun die erste falsche Antwort ein');
readln(wrong);
writeln( 'geben Sie nun die zweite falsche Antwort ein');
readln(wrong2);
end;
-------------------------------------------------------------------------------
procedure abfrage6;
begin
repeat

writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln(' Geben Sie die richtige Zahl ein' , a , '=?');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln(' 1.' , wrong , '2.' , wrong2 , '3.' , right);
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
readln(v_zahl);

if v_zahl=3 then richtig else falsch;
until(v_zahl=3);
end;
-----------------------------------------