И снова строки..., Массив элементов строки Опции

[Гость]

Задача.
В строке содержаться целые числа,разделенные запятыми. после последнего числа стоит точка. Создать массив из этих чисел.

{Строку вводим с клавиатуры. А потом выводим числа в строке}

Помогите!Не могу понять как создать этот массив...

[мисс_граффити]

В чем проблема? Как выделить числа из строки? Или как их перевести в числа?
вот эту темку читал(а)? Разбиение на слова. Все способы.

[Гость]

Да читала. И всё равно не могу понять,как выделить именно целые числа,если каждая цифра будет считаться как элемент строки.

[Malice]

Вот если по-простецки, то где то так:

..
i:=0; kl:=0;
fillchar(x,sizeof(x),0);
repeat
inc (i); inc (kl);
while s[i] in ['0'..'9'] do begin
x[kl]:=x[kl]*10+ord(s[i])-$30;
inc (i);
end;
until s[i]='.';
for i:=1 to kl do writeln (x[i]);