Помогите с программным кодам
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.
Мне надо чтобы сгенерированные числа не повторялись! Как это сделать??