Массив Опции

[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]

Перемешивание массива делается так:

for i := 1 to MAX do begin
  j := random(MAX-i+1)+i; // случайный элемент из i..MAX
  // меняем местами элементы i и j
  tmp := a[i];
  a[i] := a[j];
  a[j] := tmp;
end;

(может, в ЧАВО добавить, вопрос частый)

Добавлено через 1 мин.
А тебе надо сначала заполнить массив числами от 1 до MAX просто последовательно, а потом перемешать массив.