доделайте программу,строки пжалуйста

[bingooo]

В строке малыми латинскими буквами записаны слова, разделяющиеся запятыми. Первые буквы некоторых слов могут совпадать. Указать минимальное количество первых букв, по которым можно различить слова из заданного списка.
Вот мой исходник:
uses crt;
const zap:string[1]=',';
var s:string;
t,l,i,n:integer;
begin
clrscr;
writeln('vvedi slova cherez zapiatuiu: ');
readln(s);
l:=length(s);
t:=1;
n:=1;
for i:=1 to l do
begin
if s[i]=zap
then
if s[t]<>s[i+n]
then writeln('t=',t) else t:=t+1; n:=n+1;
end;
writeln('t=',t);
end.

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