program exo93;
uses crt;
var ph: string;
pmot:string;

function occ_mot(ch:string;var mot:string):integer;
var i,j,cpt:integer;
m: string;
begin
i:=1;
cpt:=0;
j:=1;
m:= copy (ch,j,i);
if (ord(m[j]))<> 32 then
begin
if m=mot then begin
cpt:=cpt +1;
j:=i+1;
end
else
i:= i+1;
end
else
j:=j+1;
occ_mot:=cpt;
end;

begin
writeln ('donner la phrase ');
readln(ph);
writeln('donner le mot que vous vouler comparer');
readln( pmot);
writeln(' le nobre d occurences du mot ',pmot,'est: ',occ_mot(ph,pmot));
readln;
end.

Function occ_mot (ch : String; var Mot : String) : Integer;
Var l, cpt, Debut : Integer;
m : String;
Begin
l :=1 ;
cpt := 0;
while l <= Length(ch) do
begin
sep:=[' ',';',',','.'];
while (ch[l] in sep) do
begin
l := l + 1;
end;
if ch[l]= mot[1]
then
begin
Debut := l;
while not (ch[l] in sep) do
l := l + 1;
m := Copy(ch,Debut,l - Debut);
if m = mot
then
cpt := cpt + 1;
end
else
l := l + 1;
end;
occ_mot := cpt;
end;