copy or pos(делфи)

[lama90]

Имеется стpока с текстом типа:1,2,3,Вова,5*
Мне нужно записать в массив
mass[1]:='1';
mass[2]:='2';
mass[3]:='3';
mass[4]:='Вова';
mass[5]:='5';
Заpанее длинну стpоки я не знаю то есть там может быть и 10 значений вот так:1,2,3,4,5,6,7,8,9,10* тогда массив заполним вот так
mass[1]:='1';
mass[2]:='2';
.........
mass[10]:='10';
ТО есть мне нужен текст между запятыми!
Я сначало посчитал количество запятых что бы знать заpанее pазмеP массива..Но вот загнять в этот массив данные не получается!Кто что подскажет?

[Mad_Cat]

ппц)

var s:string;
mass:array[1..100] of string[255];
i:integer;
begin
s:='1,2,3,4,5,6,7,8,9,10*';
delete(s,length(s),1);// удалим "*"
s:=s+',';
i:=0;
while pos(',',s)<>0 do begin
i:=i+1;
mass[i]:=copy(s,1,pos(',',s)-1);
delete(s,1,pos(',',s));
writeln(mass[i]);// для делфи с формами заменить на Memo.lines.add(mass[i]); 

end;
end.