деление строки

[Joy]

Добрый день.
Подскажите пожалуйста, как можно разделить строку на N равных частей.
т.е. каждую часть переносить на новую строку.
Спасибо.

[goblinyara]

for i:=1 to Length(s) do
  if (i mod k = 0) then writeln else write(s[i]);//k - количество символов в одной строке
//k можно вычислить перед этим как Length(s) div kol_vo_chastei

[Arigato]

Не все символы строки будут выведены.
Надо вместо writeln сделать writeln (s[i]);

[Joy]

Спасибо вам огромное!