Заданы М строк слов, которые вводятся с клавиатуры. Вводятся слог (последовательность букв). Подсчитать количество слогов в каждой

[cheloveg]

Помогите пожалуйста решить задачу. Я что то сделал но у меня не получилось

Заданы М строк слов, которые вводятся с клавиатуры. Вводятся слог (последовательность букв). Подсчитать количество слогов в каждой строке.

program ex;
uses crt;
const m=5;
var a:array [1..m] of string;
s:string;
i,n,n1,p:integer;
begin
clrscr;
for i:=1 to m do
readln (a[i]);
readln (s);
for i:=1 to m do
n:=length (a[i]);
n1:=length(s);
for i:= 1 to m do
begin
repeat
p:=pos (s,a[i]);
if p<>0 then delete (a[i],p,n1);
n:=length (a[i]);
until (p=0) or (n<n1);
writeln (i,'stroka-',a[i]);
end;
end.

[Zer0]

for i:=1 to m do
n:=length (a[i]);
n1:=length(s);
for i:= 1 to m do
begin
repeat
p:=pos (s,a[i]);
if p<>0 then delete (a[i],p,n1);
n:=length (a[i]);
until (p=0) or (n<n1);
writeln (i,'stroka-',a[i]);
end;

здесь немного нарушена логика, надо так:

count:=0;
n1:=length(s);
for i:=1 to m do begin
n:=length (a[i]);
while (n>=n1) and (pos(s,a[i])>0) do begin
p:=pos (s,a[i]);
delete (a[i],p,n1);
inc(count);
n:=length (a[i]);
end;
writeln (i,' stroka-',count);
end;