Дана символьная строка. Заменить все последовательности символов ‘on’ на ‘online’ и вывести новую строку (если искомой последовательности в строке нет, то вывести соответствующее сообщение) — Pascal(Паскаль)

program test;
var s,c,t:string;
begin
readln(s);
while length(s)<>0 do
begin
if pos('on',s)<>0 then
begin
c:=copy(s,1,pos('on',s)-1);
t:=t+c+'online';
delete(s,1,pos('on',s)+1);
end
else break;
end;
t:=t+s;
writeln(t);
readln;
end.