Определить, сколько раз в строке встречается заданное слово

Program NumWords;
Uses Crt;
Var S : String;
    i, c : Integer;
    A : Boolean;
    Letter : Char;
Begin
 ClrScr;
 WriteLn('Vvedite text:  ->');
 WriteLn;
 ReadLn(S);
  c := 0;
  A := TRUE;
  For i := 1 to Length(S) do
  begin
   Letter := S[i];
   If (Letter <> ' ') and A then c := c + 1;
    A := (Letter = ' ')
  end;
 WriteLn;
 WriteLn('Otvet: Kolitchectvo clov v tekcte ravno ', c, '.');
 ReadLn
End.

program IdWord;
Uses Crt;
var c, w : string;
    k : Integer;
begin
 ClrScr;
 Write('Vvedite stpoky: ->  ', c); ReadLn(c);
 Write('Vvedite slovo: ->  ', w); ReadLn(w);
 w := w + ' ';
 k := 0;
 While pos(w, c) > 0 do
  begin
   delete(c, 1, pos(w, c));
   k := k + 1;
  end;
 WriteLn('Kolichectvo slov v ctroke:  ', k);
 Readln
end.