Переделать программу,которая имитирует условия лотерейных игр ЛОТО и КЕНО

[Novenkaja]

Добрый день/вечер.

Задание такое. Дан код. Изначально его(кода) задание было таким: дана была корзина с шестью шарами,которые пронумерованы от 1 до 6 и надо было составить программу,которая имитирует вынимания наугад(на счастье) шара из корзины.
Теперь же этот код нужно переделать(дописать ту часть) так,чтобы в:
-первом случае отображалось условие игры ЛОТО;
-во втором случае отображалось условие игры КЕНО.
(обе эти две игры прорешать через данный код, но каждый в результате записать как отдельный код,т.е. в конечном счёте должно получиться 2 кода, оба из них опираясь на тот, что приложила я.)
Числа вводятся с клавиатуры.

program kopas3;
type a=set of byte;
var kopa:a;
    i,x:integer;
begin
     randomize;
     for i:=1 to 6 do write (1+random(6));
     writeln;
     i:=0;
     kopa:=[];
     repeat
           x:=1+random(6);
           if not (x in kopa) then begin
                                   kopa:=kopa+[x];
                                   write (x);
                                   i:=i+1
                                   end
     until i=6;
     if kopa=kopa then write (' win')
                  else write(' looser');
     readln
end.

И ещё цифры должны совпадать,но их последовательность может и не совпадать.

[Novenkaja]

kopas-это множества

[Mad_Cat]

а в чем проблема то? в том что всегда Win? а так и будет так как kopa всегда = kopa

[Novenkaja]

последние строки могут быть и не совсем верны,там может и не быть kopa=kopa,это уже я дописывала,чтобы посмотреть,изменить как то код с этими строками или нет.

проблема в том,что это для одного условия,а мне надо это через игру лото прогнать и Кено,в лото я играла,а вот в кено нет,поэтому эта игра для меня совсем не понятна.
Но тут ещё своеобразное лото,оно не бочонками,как раньше,а там вынимается шар из крутящегося барабана.
надо дописать как-то.Так скажем,даны условия игры лото и эти условия надо вложить в код,или иными словами,ты играешь в лотос и Кено с компьютером,загадал числа и потом через ран смотришь,компьютер вынул те числа,что ты загадал или нет...
игра на дому с компом

[Novenkaja]

всё,то,что написала в последний момент-не так давно-вопрос этот снят,нашла сама свою ошибку)))