дана строка. Изменить её так, чтобы слово начиналось с буквы, на которую закончилось предыдущее слово.

Например: Ехали медведи на велосипеде
Ехали иедведи иа аелосипеде.

//PascalABC.NET 3.1 сборка 1200begin    var s := ReadString('s = ');    if s='' then s:='какое небо голубое, какой богатенький Буратино';    writeln(s);    s := s.Trim();    s := s.Replace(',', ' ');    s := s.Replace(';', ' ');    s := s.Replace('.', ' ');    s := s.Replace('  ', ' ').Replace('  ', ' ').Replace('  ', ' ').Replace('  ', ' ');    for var i := 1 to s.Length - 1 do        if s[i] = ' ' then            s[i + 1] := s[i - 1];    writeln(s);end.