Inkompatible Typen: Integer und procedure

[InR.M4gg1]

hehe
@Nuclear-Ping: haste auch wieder recht

So... das funzt nun, jedoch erzeugt der jetzt keine zufallszahl zwischen 1 und meiner eingegebenden zahl,
jetz ist nur noch die 1 richtig!!!
woran liegt das?