создать массив и в него сохранить все элементы строки, разделенные запятой (из php в Паскаль)

[Dosuglist]

Доброго времени! Подскажите, как реализовать данные строчки на Паскале. На php получилось написать. С Паскалем еще несильно знаком.

PHP код:

$new_arr = array();
$text = explode(",",$comb[$z]);
$vol = "<".$text[$i].">";
array_push($new_arr,$vol); 


Данные строки создают массив и в него сохраняют все элементы строки, разделенными определенным знаком, в данном случае запятой.

[Ermowkin]

Program phptopascal;
var
a:array[1..10] of string; //Создаем массив от 1 до 10
i:integer;
s:string;
begin
.... //Здесь мы должны откудато взять текст для строки S
r:='';
 For I:=1 to length(s) do  //Начинаем цикл, до конца строки S
  if s[i]<>',' then r:=r+s[i] else 
   begin
      a[j]:=r; //Присваеваем значение получившейся строки, элементу массива
      r:='';    //Обнуляем нашу временную переменную
      inc(j);  //Увеличиваем значение j на 1
   end;
readln; //Для выхода из программы ждем нажатую клавишу
end.

Не проверял, но что-то похожое должно получиться.