Задано предложение и два слова. Сколько всего таких слов в предложении — Pascal(Паскаль)

Program lab7;
Uses crt;
Type k=string;
Type n=integer;
 
procedure vvod(var p: k); 
begin 
write('Vvedite: '); 
readln(p); 
end; 
 
procedure obrabotka(var p,s: k; count: n); 
var y,z:integer;
 
begin 
If s<=p then begin
Y:=pos(s,p);
If y=o then writeln(‘nevstrech’) else 
writeln(‘vstrech’);
Count:=0;
While y>0 do begin
z:=length(s)+y; Delete(p,1,z);
if y>0 then
count:=count+1;
End;
Readln;
End;
End;
 
var comanda:byte; 
pp:k;
Ss1:k;
ss2: k;
nn: n; 
 
begin 
repeat 
clrscr; 
 
writeln('1-vvod predlogeniya,2-vvod pervogo slova, 3-vvod vtorogo slova,4-kolichestvo pervogo slova, 5-kolichestvo vtorogo slova, 6- vyhod'); 
writeln('Vvedite comandu'); 
readln(comanda); 
case comanda of 
1:vvod(pp);
2:vvod(ss1);
3:vvod(ss2);
4:begin 
obrabotka(pp,ss1, nn ); 
writeln('kolichestvo slov: ', nn); 
readln; 
end; 
5:begin 
obrabotka(pp,ss2, nn ); 
writeln('kolichestvo slov: ', nn); 
readln; 
end; 
6: writeln('end') 
else writeln('Oshibka'); 
end; 
readln; 
until comanda = 6; 
end.