Составьте программу, которая заменяет в строке s слоги «ма» на слоги «бу»

Varn: string; t: integer; beginwriteln ('Введите строку'); readln (n); if pos ('ма',n) <>0 thenbegint: =pos ('ма',n); delete (n,t,2); insert ('ва',n,t); writeln (n) endelsewriteln ('Такой слог в строке не найден') end.