Строки Опции

[Eichhorn]

Ну, теперь у меня проблемы с задачей на строки.
Задача:
Дана непустая последовательность слов. Слова разделяются пробелами, запятыми. Текст заканчивается символом "*". Написать программу для подсчета количества слов и вывести все слова, отличные от первого слова.

Программу я написать не смогла, тк даже не знаю что там можно использовать. Считать слова-это, можно просто поставить счётчик и когда после последовательности символов встречается пробел, запятая или *-увеличивать его на еденицу. У меня также получилось выделить первое слово. Но я не знаю как можно сравнивать другие слова с ним. Можно поставить оператор if и если слова одинаковые, то удалять с помощью delete. Но как выполнить само сравнение слов? Кто-нибудь может подсказать? Я по форуму попыталась найти, но похожего не встретила...

[Eichhorn]

Спасибо большое! Так даже понятнее) Я сдавала эту задачу, решенную страшекурсниками таким способом:

var
        str,s1,outStr :string;
        i, s, start:integer;
	equal:boolean;
begin

    readln(str);
    writeln(str);
    s := 0;
    start:=0;
    equal:=true;
    for i:=1 to length(str) do
    begin
    	if (str[i] <> ',') and (str[i] <> ' ') and (str[i] <> '*') and (s = 0) then
        s1 := s1 + str[i];
       	if (str[i] <> ',') and (str[i] <> ' ') and (str[i] <> '*') and ((str[i-1] = ',') or (str[i-1] = ' ')) then
    	start := i;
       	if (start<>0)and(str[i] <> ',') and (str[i] <> ' ') and (str[i] <> s1[i - start + 1]) then
    	equal:=false;
       	if ((str[i] = ',') or (str[i] = ' ') or (str[i]='*')) and  ((str[i - 1] <> ',') and 
(str[i - 1] <> ' ')) then
       	begin
          inc(s);
	  if not equal then
	  outStr:=outStr + copy(str,start,i - start) + ' ';
	  equal:=true;
        end;
	if str[i] = '*' then break;
    end;
        writeln(s);
	writeln(outStr);
	readln;
end.

повезло, что по ней не спрашивали, иначе этот вышеописанный код вряд ли смогла бы объяснить)