谁能告诉我这段pascal语言什么意思

这是谁写的叫他面壁。这种怎么复杂就怎么设计的程序,给我的感觉就像,排序用bogo,求a+b用网络流之蛋疼。
其实他的意思就是,一位一位的随机,每次生成了一位随机数之后,检查之前已有的随机数,看看里面有没有和新生成一样的,没有的话就认可这个新生成的,否则继续随机一个新数。不过写的很脑残就是了,专坑读写程序用的。
再问： 噢噢，原来如此。问一下〜大大你有更简单的方法么
再答： 生成随机数列方法很多,我习惯上是随机位置,按顺序安插数字。