Указать минимальное количество первых букв, по которым можно различить слова из заданного списка.

[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;


Помогите плз!!!!!!

[Serge_Bliznykov]

Указать минимальное количество первых букв, по которым можно различить слова из заданного списка.
bingooo, а что, предыдущая тема, которую Вы завели,
Вам уже надоела?! ;(((

[bingooo]

Я не смог написать программу по алгоритму, который вы предложили ((
уже вторую неделю с этой задачей мучаюсь... в понедельник сдавать...

[bingooo]

Помогите плз!!!