обрисовать функцию, в которой в начало каждой подстроки в строке добавляется

да да

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программка не работает, обновите версию!

procedure Sly(var a:string);
begin
  a:=a.ToWords.Select(w-gt;w.Length+w).JoinIntoString;
end;

begin
  var s:=ReadlnString('Введите строчку:');
  Sly(s); Writeln(s)
end.

Пример
Введите строчку: Первое второе третье четвертое 5-ое
6Первое 6второе 6третье 9четвертое 5пятое