Строки (Pascal ABC)

[VladimirAvakov]

Написать программу на Паскале.

Дана строка s, содержащая менее чем 150 символов. Определить, сколько раз и на каких позициях в исходной последовательности символов встречаются символы но. Использовать стандартные процедуры и функции в действиях над строками.

Заранее спасибо

[Mad_Cat]

var s:string;
k:integer;
p:integer;
cnt:integer;
begin
s:='киновинодомино';
k:=0;cnt:=0;
while pos('но',s)<>0 do begin
write('позиция:');
cnt:=cnt+1;
p:=pos('но',s);
k:=k+p;
writeln(k);
delete(s,1,p+1);
k:=k+1;
end;
writeln('количество:',cnt);
end.

позиция:3
позиция:7
позиция:13
количество:3