перед каждым символом в тексте поставить точку. Паскаль абц. Текст любой

var

   t : string;

begin

   writeln('Введите текст:');

   readln(t);

   t := Regex.Replace(t, '.', '.$0');

   writeln(t);

end.