random,صدازدن ارایه در تابع

[sm6m10]

سلام دوستان.
خسته نباشید.
دو تا سوال داشتم:
1-چطوری چند تا عدد تولید کنم که تصادفی باشند و تکراری نباشند.با random,randomize نتونستم.از چه تابعی کمک بگیرم مثلا 100تا عدد غیر تکراری

2-چطور یک ارایه را در تابع صدا کنم مثلا به شکل زیر.البته errorمیدهد.
میخواهم در جلوی arرا صدا بزنم.

() ar:array [1..100] of integer
function sum