Рекурсивная фунукция и множества, type M=set of 0…99 Описать функцию card(A), подсчитывающую количество Опции

[$rvr4vr]

type M=set of 0…99 Описать функцию card(A), подсчитывающую количество элементов, в множестве А типа М.
Вот так я попытался сделать, но естественно не получилось.

type M=set of 0..99;
       L=set of byte;
function card(s:L):integer;
 const k:m= [];
 var i,j:integer;    
begin  
 if s=k then card:=j;
   else begin
    for i:=0 to 99 do
      if i in s then
       begin
        exlude(s,i);
        j:=j+1;
        card:=card(s);
       end;
    end;
************** 

может кто поможет?

[$rvr4vr]

количество элементов во множестве А типа М!

Например, card([5, 8, 23, 1, 115])=4

ввел такое множество [5, 8, 23, 1,121] выдало ошибку переполнения стека. все так же как и в моих вариантах

[Malice]

Вон чего, тогда смотри, я свой пост поправил..