[lmikle]

Код:

function GetCharCount(AText : String; ACh : Char) : Integer;
var
  I : Integer;
begin
  Result := 0;
  AText := Trim(AText); // Убираем лидирующие пробелы, если есть.
  For I := 1 To Length(AText) Do
    Begin
      If AText[i] = #32 Then Break; // Конец первого слова.
      If AText[i] = ACh Then Inc(Result); // Нашли буковку!!! Считаем.
    End;
end; 

Ну ввод напишешь сам.