{с - искомый символ, на который слово должно заканчивается}
{пердположим, у вас есть распарсенный массив строк}
{s - текущее обрабатываемое слово}
{count - счетчик слов}
l:= length(s);
if (s[l]=c) then count:=count+1;