Тема-Текст. Паскаль

[rusfin01]

Ввести текст и определить количество слов, у которых первая и последняя буквы в слове - одинаковы. Вывести эти слова. Затем из исходного текста удалить эти слова.

program string_12;
var sl,s:string; i:integer;
begin write('Введите текст:'); readln(s);
      sl:='';i:=1;s:=s+'.';
      repeat
      {for i:=1 to length(s) do}
      if (s[i]=' ') or (s[i]=',') or (s[i]=';') or (s[i]='.') or (s[i]='!') or (s[i]='?')
         then begin if sl[1]=sl[length(sl)] then writeln(sl);
                    sl:='';
              end
         else sl:=sl+s[i];
      i:=i+1
      until i>length(s);
      readln;
end.

Вроде программа правильно выводит слова, но как потом из исходного текста удалить эти слова?

[Stilet]

Правильно думаешь. Вот смотри:http://www.programmersforum.ru/showt...369#post398369
Тут разбивка строки на слова в массив. Допиши сборку из массива в строку, но по своим критериям