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

// PascalABC.NET, версия 3.2

program ins;
const
I = 'т';
B = 'о';
var
s: string := 'сок';
begin
write(s, ' + ', I, ' = ');
Insert(I, s, pos(B, s));
writeln(s);
end.