Паскаль (abc), составить полную рабочую программу используя insert
Дано слово.(слово вводится через writeln) Вставить заданную букву после первой буквы "и" (если она есть, если нету, выводит результат "в слове нету буквы и")

var s: string;

c: char;

p: integer;

begin

   writeln('Введите слово: ');

   readln(s);

   writeln('Введите букву: ');

   readln(c);

   p:=pos('и', s);

   if p > 0 then

   begin

       insert(c, s, p + 1);

       writeln(s);

   end

   else

       writeln('В слове нет буквы и');

end.