Дана символьная строка. Заменить все последовательности символов 'on' на 'online' и вывести новую строку (если искомой последовательности в строке нет, то вывести соответствующее сообщение) - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var
s:string;
i:integer;
begin
readln(s);

for i:=length(s) downto 1 do
if (s[i]='o')and(s[i+1]='n') then
insert('line',s,i+2);

writeln(s);
end.