в слово сок нужно вставить букву и чтобы получилось новое слово сток...По программе Паскаль

Спасибо большое)

// PascalABC.NET, версия 3.2program ins;const I = 'т'; B = 'о';var s: string := 'сок';begin write(s, ' + ', I, ' = '); Insert(I, s, pos(B, s)); writeln(s);end.