Ответ:

Я так понимаю язык нужно использовать Pascal?

Если да, то:

var a, l:string;

   i, n:integer;

begin

 read(a);

 i:=0;

 n:= pos(' ', a);

 l:= a[n+1];

 while pos(l, a) > 0 do begin

   i:= i + 1;

   Delete(a, pos(l, a), 1);

 end;

 writeln(i);

end.

Объяснение:

Код чувствителен к регистру! (Если фамилия начинается с большой буквы, то и искать он будет только большие буквы!)