Строки в Паскале, дорешать.

[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
begin
if s[t]<>s[i+n]
then writeln('t=',t) else begin
t:=t+1;
n:=n+1;
end;
end;
end;
writeln('t=',t);
end.


у меня считает только когда совпадает 1 буква и не совпадают, помогите создать цикл для:

if s[t]<>s[i+n]
then writeln('t=',t) else begin
t:=t+1;
n:=n+1;

ну очень нужно, будьте так любезны!!!