Unterschied While-Schleife <-> RepeatUntil-Schleife

[stina]

uses
SysUtils;
var
Zahl1: Integer;
Zahl2: Integer;

begin
repeat

until (zahl1<>zahl2);
Writeln('Zufallszahl: geben sie eine Zahl zwischen 0 und 20 ein. Sie haben 3 Versuche');
randomize;
Zahl2:= Random(20);
readln(Zahl1);
if Zahl1=Zahl2 then write('Richtig es ist:'+IntToStr(Zahl2));
if Zahl1<Zahl2 then write('Falsch es ist zu klein');
if Zahl1>Zahl2 then write('Falsch es ist zu groß');
readln;
writeln('Zweiter Versuch');
readln(Zahl1);
if Zahl1=Zahl2 then write('Richtig es ist:'+IntToStr(Zahl2));
if Zahl1<Zahl2 then write('Falsch es ist zu klein');
if Zahl1>Zahl2 then write('Falsch es ist zu groß');
readln;
writeln('Dritter Versuch');
readln(zahl1);
if Zahl1=Zahl2 then write('Richtig es ist:'+IntToStr(Zahl2));
if Zahl1<Zahl2 then write('Falsch es ist zu klein');
if Zahl1>Zahl2 then write('Falsch es ist zu groß');
readln;
if Zahl1>Zahl2 then write('Die richtige Zahl ist: '+IntToStr(zahl2));
if Zahl1<Zahl2 then write('die richtige Zahl ist: '+IntToStr(zahl2));
readln;



try
{ TODO -oEntwickler -cKonsole Main : Hier Code einfügen }
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;

end.





is das richtig so????? is für zufallszahlen möchte aber wissen ob die schleife richtig is