Firebird random integer syntax

SET TERM ^ ;
CREATE PROCEDURE ljudjee
AS 
DECLARE VARIABLE i integer=1;
DECLARE VARIABLE d integer; 
DECLARE VARIABLE e integer;
DECLARE VARIABLE star integer;   
BEGIN
while (i <= 1000000) do
begin
  d=((rand()*99999)+1);
  e=((rand()*99999)+1);
  star=((rand()*50)+18);
  insert into ljudje values (:i,'Ime','Priimek',:star,:d,:e);
  i = i + 1;
  END
END^
SET TERM ; ^

Well i dont get any errors from this code when executing it. It seems like everything is ok but when i try to EXECUTE PROCEDURE it doesnt work. There are also no errors but procedure execution time takes forever and actually does nothing. It must be something wrong with rand() function which i probably didnt use correctly. Any ideas? Also no records are inserted into the table. None at all.