Дан массив с текстом. Как найти в нем количество разных слов.

[pascal1994]

Дан массив с текстом. Как найти в нем количество разных слов

[r9m]

думаю брать каждый элемент и сравнивать с остальными =\

[pascal1994]

Вот я писал, почему-то не работает? помогите пожалуйста.

for i:=1 to rez do
begin
for j:=i+1 to rez+1 do
if a[i]=a[j] then
begin
inc(lic);
end;
end;

[knight]

Вот на delphi у меня было....

var tempStr, outStr: string;
    words: array [0..100] of string;
    unic_words: array [0..100] of string;
    i,j, iCount, iCountUnic: integer;
    p: boolean;
begin
 tempStr := Memo1.Text + ' ';

 //уберем лишние пробелы
 outStr := '';
 p := true;
 for i := 0 to length(tempStr) do
   begin
     if ((tempStr[i]=' ') or  (tempStr[i]=',')) and (not p) then
       begin
         p := true;
         outStr := outStr + ',';
       end;

      if (tempStr[i]<>' ') and  (tempStr[i]<>',') and (not p) then
         outStr := outStr + tempStr[i];

      if (tempStr[i]<>' ') and  (tempStr[i]<>',') and (p) and (tempStr[i] <> #0) then
      begin
        outStr := outStr + tempStr[i];
        p := false;
      end;
   end;



 //загоним слова в массив
 tempStr := outStr;
 outStr := '';
 p := true;
 iCount := 0;

 for i := 0 to length(tempStr) do
   begin
     if (tempStr[i]=',' ) and (not p) then
       begin
         p := true;
         words[iCount] := Trim(outStr);
         outStr := '';
         iCount := iCount + 1;
       end;

      if (tempStr[i]<>',' ) and (tempStr[i] <> #0) then
      begin
        outStr := outStr + tempStr[i];
        p := false;
      end;
   end;

iCountUnic := 0;
 for i := 0 to iCount do
  begin
   p := false;
   for j := 0 to iCountUnic do
   begin
      if unic_words[j] = words[i] then
          p := true;
   end;

   if not p then
     begin
      Inc(iCountUnic);
      unic_words[iCountUnic] := words[i];
     end;


  end;

 outStr := 'Найдены уникальные слова: (' + IntTosTr(iCountUnic) + ')'+ #$0D + #$0A;
//выведем самое динне
ShowMessage(outStr);

  end;

[pascal1994]

у меня что-то не работает ? Кто имеет на паскале?

[knight]

tempStr := Memo1.Text + ' '; -> tempStr := 'набор слов ' + ' ';
ShowMessage(outStr); - > writeln(outStr);

Остальное вроде бы без изменений...