Массив Опции

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

> Что то я тебя не понимать=\ задача решается, все верно!

У тебя при i равном n-1 вызывается random(0), тебя не напрягает?
Что такое random(0)? Функция, возвращающая число от 0 до -1?
Жалко, что в язык не вставлена проверка аргумента для этого случая.
Короче, неправильно ты алгоритм мой переписал.

Если трудно, напиши лучше так (всё по процедурам):

function Rand(a, b: integer): integer; 
// случ. число в a..b
begin
  if a>b then begin
    WriteLn('Error, invalid argument: ',a, ' ', b);
    Halt;
  end else begin
    Rand := a + random(b-a+1);
  end;
end;

procedure Swap(var a, b: integer); 
// обмен
var
  tmp: integer;
begin
  tmp := a;
  a := b;
  b := tmp;
end;

procedure Shuffle(var A: array of integer; L, R: integer); 
// перемешивает массив, фрагмент от L до R. 
// Осторожно, внутри процедуры массив нумеруется с нуля, 
// поэтому желательно и исходный массив нумеровать с 0
// во избежание непоняток!
var
  i: integer;
begin
  for i := L to R do Swap(A[i], A[Rand(i, R)]);
  // для всех элементов меняем их с любым из тех, что за ними
end;