Witam! Mam problem mianowicie napisałem program lotto ktory losuje 6 liczb z 49 i nie wiem co dopisac aby nie losowal powtarzajacych sie liczb
program lotto;
uses crt;
TYPE wektor=array[1..6] of integer;
var
losowanie:wektor;
procedure wyswietl(var t:wektor);
var i:integer;
begin
writeln('dzisiejsze szczesliwe nr to: ');
for i:=1 to 6 do
write(t[i],' ');
end;
procedure wylosuj(var t:wektor);
var i,l:integer;
begin
for i:=1 to 6 do
begin
l:=random(10)+1;
t[i]:=l;
end;
end;
begin
randomize;
clrscr;
wylosuj(losowanie);
wyswietl(losowanie);
repeat until keypressed;
end.