Дана строчка текста. Подсчитать количество букв к в заключительном слове.

var s : string;
nbsp;nbsp;nbsp;k, kol, i : integer;
begin
nbsp;nbsp;Write(Введите строчку : );
nbsp;nbsp;ReadLn(s);
nbsp;nbsp;nbsp;nbsp;for i:=1 to length(s) do
if s[i]= then k:=i;
for i:=k+1 to length(s) do
if s[i]=k then inc(kol);
nbsp;nbsp;WriteLn(В заключительном слове буковка quot;kquot; встречается ,kol, раз.);
nbsp;nbsp;ReadLn;
end.