Вставить пробел в строку после каждого N символа

[Gover]

Помогите решить задачу, не соображу никак.
На практике нужно в строку введенную в Edit добавить пробелы после каждого 4-го символа, если длинна строки делится на 4, то в конце пробел не добавлять.

[SQLPowerUser]

Я правильно понял, что строка типа Мама мыла раму должна остаться без изменений?
А строка Где сидит фазан превращается в (тут 2 пробела после слова Где)

Где  сиди т фа зан

Или тупо расставить пробелы невзирая ни на что? Мама мыла раму превращается в

Мама  мыл а ра му

[Gover]

Нет, смысл такой. Есть строка из 16-ти цифр, нужно разделить ее на группы по 4 цифры, разделенной пробелами (номер платежной карточки).

[Аватар]

for i:=Length(s) downto 4 do if (i mod 4=0) and (i<Length(s)) then Insert(' ',s,i+1);

[Gover]

Ок, спасибо, то что нужно.

[Аватар]

Так проще будет

for i:=Length(s)-1 downto 4 do if i mod 4=0 then Insert(' ',s,i+1);