В заданном предложении вставить после буквы „о“ слог „ко“. Новый текст вывести на печать — Pascal(Паскаль)

var
s:string;
i:integer;
begin
writeln('vvedite stroku');
readln(s);
for i:=length(s) downto 1 do
if s[i]='o'then insert('ko',s,i+1);
writeln(s);
readln;
end.