Вслове, состоящем из трёх двухсимвольных слогов, опреде¬лять номер слога "ро". если такого слога нет, то вывести соответствующее сообщение. желательно бы решение в паскале

var s:string; k:integer; begin readln(s); k:=pos('ро',s); if k<>0 then writeln(k div 2+1) else writeln('"ро" нет :('); writeln('Нажмите Enter для выхода'); readln end.