program exo93;
uses crt;
var ph: string;
    pmot: char;
function occ_mot(ch:string;var mot:char):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.