@brushmate
.. könnte der Fehler/das Problem hier liegen?
e := random*(N-1);
Laut der delphi Hilfe liefert random ein float Wert zurück.
Zitat von
DelphiHilfe:
Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range
0 <= X < 1.
Dann wird es später schwierig mit der ggT Funktion
und dann hast Du eine wunderbare Endlosschleife.
Grüße
Klaus