Массив Опции

[BanneD]

Всем доброго времени суток!
Помогите с программным кодам

program loto;
const n=90;
var i:integer;
    a:array[1..n] of integer;
begin
randomize;
     for i:=1 to 85 do
     begin
          a[i]:=random(91);
          if a[i]<>0 then writeln(' a[',i,']=',a[i]);
     end;
end.

Мне надо чтобы сгенерированные числа не повторялись! Как это сделать??

[TarasBer]

m:=random(n-i-1)+i+1;

Неверно.

надо

m:=random(n-i+1)+i;

Должна быть возможность поменять элемент с самим собой (ну оставить на месте).
Сам подумай, чтобы при i=1, например, формула превратилась в random(MAX)+1.

А вообще я что-то понять не могу, то у тебя до 90 (в виде константы), то до 85, ты определись.