Строки Опции

[Eichhorn]

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

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

[Eichhorn]

Люди! Хэлп! Не могу понять как сравнить слова с первым. Вот текст программы, которая есть:

var
s,s1,s2:string;
i,p,j,r,d:integer;
begin
  readln(s);
  for i:=1 to length(s) do
  begin
    r:=pos(' ',s);
    d:=pos(',',s);
    if r>d then
    begin
      s1:=copy(s,1,d-1);
      p:=d;
    end
    else
    begin
      p:=r;
      s1:=copy(s,1,r-1);
    end;
  end;
  for i:=p to length(s) do
  begin
  r:=pos(' ',s);
  d:=pos(',',s);
  if r>d then p:=d else p:=r;

  for j:=p to length(s) do
  begin
    if (s[j]<>' ') and (s[j]<>',') then
    s2:=copy(s,j,pos(' ',s));
  end;
  if s2=s1 then delete(s,p,length(s2));
  end;


  writeln(s);
  readln;
end.

Ну просто очень нужно. А как сделать-не понимаю....

Сообщение отредактировано: Eichhorn - 13.01.2011 9:42