Перед каждым символом в тексте поставить точку. Паскаль абц. Текст любой
var
t : string;
begin
writeln('Введите текст:');
readln(t);
t := Regex.Replace(t, '.', '.$0');
writeln(t);
end.