How do I write a program that displays a given word with spaces appended between characters?

var s: string;
l: integer; // number of letters in a word
begin
writeln (‘Enter a word’);
readln (s); // Enter a word
l: = length (s); // determine the word length (number of characters)
// Insert a space in a loop. Spaces will be inserted at positions
// 2, 4, 6, … That is, you need the initial position i of the letter,
// after which you need to insert a space, double it.
for i: integer: = 1 to l-1 do Insert (”, s, 2 * i);
writeln (s)
end.