задача про множества

[любаша]

всем привет!!!!
задали решить задачу,множества были на первом курсе-все уже забыла....
подскажите пожалуйста..

нужно осуществить ввод множества с клавиатуры от 1до100,чтобы в нем было не больше 10 элементов.признак конца ввода-нажатие enter. НО еще нужно осуществить блокировку буквенных клавиш и символов,отличных от цифр......

заранее спасибо

[Stilet]

Обьявляешь переменку:

var   s:set of 1..100;

И пишешь код ввода и вывода на экран ее содержимого в событии нажатия клавиши в Эдите:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
// Блокировка
 if (key in ['A'..'я']) then key:=#0;
// Включаем в множество
 if key=#13 then begin
  Include(s,StrToInt(Edit1.Text));
// Выводим на экран в заголовок
  Caption:='';
  for i:=1 to 100 do
   if i in s then Caption:=Caption+IntToStr(i)+',';
 end;
end;

[любаша]

спасибо за помощь))