random number generator

Begin
Randomize;
a:= Random (58) + 1
end {random}

This will work!