Дана строка, состоящая из 50 символов. Составьте программу, используя процедуру которая определяет сколько раз встречается в строке слог ‘ea’.

Ох, используя процедуру. Сейчас исправлю.

Спасибо огромное

var s:string;k:integer;procedure SubInc(var s:string;var k:integer);begin;while pos('ea',s)<>0 dobegin;delete(s,pos('ea',s),2);inc(k);end;end;begin;readln(s);if length(s)<>10 then exit;SubInc(s,k);writeln(k);end.