Серёжа мечтает о том, что бы каждый второй символ был #. Он пытался написать программу,...

Question

Серёжа мечтает о том, что бы каждый второй символ был #. Он пытался написать программу, которая вводила строку, а потом выводила вместе каждого второго символа "#", но у него не получилось этого сделать. Помогите ему осуществить свою мечту. )))
Формат ввода: вводится строка
Формат вывода: выводится строка, где каждый второй символ заменён нам "#"
Пример ввода: Milye druz'ya
Пример вывода: M#l#e#d#u#'#a

Answer 1

Var
  s:string;
  i:byte;
begin
  Write('Введи строку: '); Readln(s);
  i:=2;
  while i<=length(s) do begin s[i]:='#'; i:=i+2 end;<br>  Writeln(s)
end.

Тестовое решение:
Введи строку: Milye druz'ya
M#l#e#d#u#'#a