Заполнение двухмерного массива(символами)

[hottab1]

Здравствуйте! Я бы хотел попросить у Вас помощь. Нужно заполнить двухмерный массив символами, то есть на входе дается слово пурсеооср, на выходе должен быть массив вот такого вида:
п р о
ц е с
с о р
То есть слово должно быть раскодировано по принципу зигзага. Есть пример с числами, выводит просто числа зигзагом:

const
  place = 4;

var
  i, j, n, m, h, s: word;

begin
  readln(n, m);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      h := i + j - 2;
      s := (1 + h) * h div 2;
      if h > n then
        dec(s, (1 + h - n) * (h - n) div 2);
      if h > m then
        dec(s, (1 + h - m) * (h - m) div 2);
      if h >= n then
        dec(s, h - n + 1);
      write((s + j):place);
    end;
    writeln;
  end;
  readln;
end.

Ссылка на тему:
http://www.programmersforum.ru/showt...12#post1183412
Помогите пожалуйста

[BDA]

var
  i, j, n, m, h, s: word;
  str: string;
 
begin
  readln(str);
  m := length(str);
  n := round(sqrt(m));
  while (n > 1) and (m mod n <> 0) do
    dec(n);
  m := m div n;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      h := i + j - 2;
      s := (1 + h) * h div 2;
      if h > n then
        dec(s, (1 + h - n) * (h - n) div 2);
      if h > m then
        dec(s, (1 + h - m) * (h - m) div 2);
      if h >= n then
        dec(s, h - n + 1);
      write(str[s + j], ' ');
    end;
    writeln;
  end;
  readln;
end.

Протестировал на pcrseoosr (т.к. ideone.com отказался воспринимать русские буквы).

[hottab1]

Большое спасибо! Какой раз уже меня выручаете!)