Множества, Работа с множеством в Delphi Опции

[status]

Помогите пожалуйста решить задачу : Вводятся 6 чисел, не превышающих 49. Программа также генерирует 6 различных чисел от 1 до 49 и сообщает, сколько из них пользователь угадал.

[volvo]

Тогда вот так:

procedure TForm1.Button1Click(Sender: TObject);
const N=6; M=49;

var
  setM: set of 1 .. M;
  A, i: byte;
  amount: integer;
begin
  Randomize;
  setM:=[];
  for i:=1 to N do begin
    repeat
      A:=Random(M)+1
    until not(A in setM);
    setM := setM+[A];
  end;

  amount := 0;
  for i := 0 to Memo1.Lines.Count - 1 do
    if StrToInt(Memo1.Lines[i]) in setM then inc(amount);

  Showmessage(inttostr(amount) + ' совпадений ... ');

end;