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

[Гость]

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

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

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

[Артемий]

Что-то в коде не видно массива ^^^
Может так с массивом:

var
x: array [1..25] of longint;
i,j,n: Integer;
s,s1,s2: string;
begin
j:=1;
readln(s);
s2:=s;
for i:=1 to length(s) do begin
 if s[i] in [','] then begin
  s1:=copy(s2,1,pos(',',s2)-1);
  val(s1,x[j],n);
  delete(s2,1,pos(',',s2));
  inc(j);
 end else if s[i] in ['.'] then begin
  s1:=copy(s2,1,pos('.',s2)-1);
  val(s1,x[j],n); break;  end;
end;

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