Hilfe bei nem Algorythmus

[Tpercon]

Zitat von Reloaded:

Zitat:

begin
repeat
random;
Zahl1 := Random(48 )+1;
False;

until Ungleichheit;
end;

Was soll das random; am Anfang? Das bringt doch da garnichts.
Wo lag denn das Problem bei den Arrays? Ist ja so echt viel zu umständlich.