Машинист

Не оригинально, но просто:
-создать массив на количество цифр (например, var Loto: array[1..70]of byte);
-и заполнить его вашими неповторяющимися числами (можно случайным образом);
-из интервала 1..70 поочередно выбрать (разыгрывать) случайные числа (х), Loto[x] - очередное выпавшее в игре число;
-и чтоб они больше не фигурировали, обнулять эти ячейки массива (Loto[x]:=0);
-если в последующих выборах окажется Loto[x]=0, повторить выбор (в вашем случае выбора "7 из 70" повторов получится не так уж и много).