Удалить строку

[evgeniy8705]

В строке S, удалить два подряд идущих одинаковых слова, слова разделяются пробелом.

[ZX Spectrum-128]

Разбиение строки на слова.
Все метОды хороши, выбирай на вкус.

http://forum.pascalnet.ru/index.php?showtopic=6972
А уж сравнить найденные слова и вовсе просто.

[evgeniy8705]

Сообщение от ZX Spectrum-128

Разбиение строки на слова.
Все метОды хороши, выбирай на вкус.

http://forum.pascalnet.ru/index.php?showtopic=6972
А уж сравнить найденные слова и вовсе просто.

Я как новичок в этом деле, прошу вас помочь мне сделать эту задачу, а то что вы мне предоставили, это хорошо, но мне пока сложно разобраться в этих алгоритмах, но в будущем думаю пригодится.

[ZX Spectrum-128]

Есть куча разнообразных нюансов.
Но подозреваю, что вам нужно сдать и забыть.

const

   limits = [#0..#32,'.',',',':',';','!','?','"'];
type

   TWords = array[1..40] of string;

var
   text : string;
   words : TWords;
   i,number:byte;

function GetWords(s : string; var w : TWords) : byte;
var
   i,back,n : byte;
begin
   i := 1;
   n := 0;
   while(i<=length(s)) do begin
      while(i<=length(s)) and (s[i] in limits) do
       inc(i);
      if i<=length(s) then begin
         back := i;
         while(i<=length(s)) and not(s[i] in limits) do
          inc(i);
         inc(n);
         w[n] := copy(s, back, i-back);
      end;
   end;

   GetWords := n;
end;
begin
  text:='... мама, мама, что я буду делать, мама, мама, как я буду жить? ';
  number:=GetWords(text,words);
  text:='';
  for i:=1 to number do
    begin
      if words[i]=words[i+1] then
        begin
          words[i]:='';
          words[i+1]:='';
        end;
      text:=text+' '+words[i];
    end;
  writeln(text);
  readln;
end.