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

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