Delphi. Как из массива составить массивы?

[Pecho]

Доброго времени суток, уважаемые форумчане!
Дан массив mas: array[1..9] of char = ('G','Y','J','N','G','M','Y','M','O ');
Нужно разбить его на 3 массива, так что в них будет вписываться каждый 3-й символ, т.е. должно получиться:
массив1 - ('G','N','Y');
массив2 - ('Y','G','M');
массив3 - ('J','M','O');

КАК это сделать?

[b2soft]

581751789 недорого оплата Вебмани

[Z1000000]

 
for i:=1 to 9 do
  begin
  if i mod 3 = 1 then B[i div 3 + 1 ] := A[i]
  else if i mod 3 = 2 then C[i div 3 + 1 ] := A[i]
  else if i mod 3 = 0 then D[i div 3 ] := A[i];
  end;