Как составить программку которая выводит на экран данное слово с добавленными

var s: string;
l:integer; //количество букв в слове
begin
writeln(Введите слово);
readln(s); //Ввод слова
l:=length(s); //определения длины слова (количества знаков)
//Вставка пробела в цикле. Пробелы будут вставляться в позиции
//2, 4, 6,... То есть, необходимо первоначальную позицию i буковкы,
//после которой надобно воткнуть пробел, прирастить вдвое.
for i:integer:= 1 to l-1 do Insert ( , s, 2*i);
writeln(s)
end.