Составить функцию, подсчитывающую количество слов списка, которые начинаются и оканчиваются одной и той же буквой

[Dark Illusion]

Здравствуйте. Помогите, пожалуйста, написать программу: составить функцию, подсчитывающую количество слов списка (динамическая структура), которые начинаются и оканчиваются одной и той же буквой. Используя данную функцию, найти количество слов, начинающихся и оканчивающихся одной и той же буквой в списках М, К, L. Я смог написать только самый простой вариант и то он даже не в виде функции оформлен, а списками там вообще не пахнет, да и ещё впридачу она выводит всегда на одно слово меньше нужного.

var sl,s:string;
i, h:integer;
begin
writeln('введите строку');
readln(s);
h:=0;
sl:='';
i:=1;
s:=s+'.';
while i<>length(s) do
 begin
if (s[i]=' ') or (s[i]=',') or (s[i]=';') or (s[i]='.') or (s[i]='!') or (s[i]='?')
then
begin
if sl[1]=sl[length(sl)] then h:= h+1;
sl:='';
end
else sl:=sl+s[i];
i:=i+1
end;
writeln('Количество слов',h);
readln;
end.

Помогите, пожалуйста, реализовать с динамической структурой - списками. Заранее спасибо.