Delphi: строки

[kami46]

Задание примерно такое: вводятся слова через запятую, после последнего слова точка. программа должна вывести эти слова в обратном порядке.

Первую часть программы смог написать, в ней формируется одномерный массив, каждый из элементов которого - отдельное слово (индексы соответствуют порядку слов при вводе):

procedure TForm1.btn1Click(Sender: TObject);
var s : string;
    i,j : byte;
    a : array [1..30] of string;

begin
   s := Edt1.text;
  Edt2.text := '';


    j := 1;
    for i := 1 to length(s) do

      if (s[i] <> ',') and  not ((s[i] >= '0') and (s[i] <= '9')) and (s[i]<>'.') then

          a[j] := a[j] + s[i]

      else  if (s[i] = ' ') and (a[j] <> '') then inc(j);

Как представить массив строкой и вывести каждый элемент начиная с последнего и до первого через запятую не знаю, помогите пожалуйста =(

[GetMax]

var s : string;
    i,j : byte;
    a : array [1..30] of string;

begin
   s := Edit1.text;
  Edit2.text := '';
  j := 1;
  for i := 1 to length(s) do
  Begin
  if (s[i] <> ',') and  not ((s[i] >= '0') and (s[i] <= '9')) and (s[i]<>'.') then
  a[j] := a[j] + s[i]
  else
  if (s[i] = ',') then inc(j)
  End;
  For i:=j downto 1 do
  Begin
    Edit2.Text:=Edit2.Text+A[i]+' '
  End;

[kami46]

Сообщение от GetMax

var s : string;
    i,j : byte;
    a : array [1..30] of string;

begin
   s := Edit1.text;
  Edit2.text := '';
  j := 1;
  for i := 1 to length(s) do
  Begin
  if (s[i] <> ',') and  not ((s[i] >= '0') and (s[i] <= '9')) and (s[i]<>'.') then
  a[j] := a[j] + s[i]
  else
  if (s[i] = ',') then inc(j)
  End;
  For i:=j downto 1 do
  Begin
    Edit2.Text:=Edit2.Text+A[i]+' '
  End;

Слова выводятся в том же порядке, что и задаются, а нужно наоборот
Разобрался в чем косяк, спасибо за помощь!