{* Задача 26 *}

Unit ZADACH26;
Interface
Implementation
Begin
 writeln('Ввод с клавиатуры строки произвольной длины. Заменить в строке все символы 't' на 'm' и вставить начало строки символ 'S'.');
End.

Program Task51_1;

Uses zadach26.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s : String;
  i : Integer;
Begin
  Write ('Введите строку :');
  Readln(s);
  While (Pos('t', s)0) Do
  Begin
    i := Pos('t', s);
    s[i] := 'm';
  End;
  Insert('S', s, 1);
  Writeln('Строка после преобразований : ', s);
  Readln; {* Ждем нажатия Enter *}
End.