Заполнить массив из 6 элементов случайными неповторяющимися целочисленными значениями от 1 до 49

program f;
const
lt=49;
sh=6;
var
ll:array[1..lt]of integer;
i,nom:integer;
begin
for i:=1 to lt do
LL[i]:=i;
i:=1;
while i <=sh do
begin
nom:=random(lt)+1;
if ll[nom]<>0 then
begin
write(ll[nom],' ');
ll[nom]:=0;
I:=I+1;
end;
end;
end.

Program Loto;
Uses Crt;
Const lt = 49; (* количество шаров в лототроне *)
      shar = 6; (* количество выигрышных шаров*)
Var lott,vyb : array [1..shar] of integer;
    i, j, nom, k : integer;
    m:set of byte;
Begin
randomize;
m:=[];
for i:=1 to shar do
 begin
  repeat
   nom:=1+random(lt);
  until not(nom in m);
  lott[i]:=nom;
  m:=m+[nom];
 end;
writeln('Выберите 6 шаров от 1 до ',lt);
m:=[];
for i:=1 to shar do
 begin
  repeat
   write('nom',i,'=');
   readln(nom);
  until (nom in [1..lt])and not(nom in m);
  vyb[i]:=nom;
  m:=m+[nom];
 end;
clrscr;
writeln('Номера шаров в лототроне');
for i:=1 to shar do
write(lott[i]:3);
writeln;
writeln('Выбранные шары');
for i:=1 to shar do
write(vyb[i]:3);
writeln;
write('Совпавшие шары: ');
k:=0;
for i:=1 to shar do
for j:=1 to shar do
if lott[i]=vyb[j] then
 begin
  k:=k+1;
  write(lott[i]:3);
 end;
if k=0 then write('- нет')
else write('  Их количество=',k)
end.