Thanks guys but I already solved the problem.
r := (Random -0.5) *2;

My Perlin noise like procedure is now done to the part that I can get mostly same results as from one of example programs I found on the web. No source code unfortunatly so I cant do any real speed comparison.
I might do partial rewrite of it so it will give me more options for postprocessing. This way I belive to get much better results.
But since I already spent more time on this than I expected I must postpone this for a while and start working on the rest of the game. Having best planet generation algorithm does me no good if I don't have a game in wich to use this algorithm.