Сортировка групп слов - Turbo Pascal

Формулировка задачи:

Здравствуйте, мне нужна помощь в моем коде, я сделал так, чтобы находились одинаковые элементы и удалялись, но мне надо удалить все слово, а не только этот элемент.

uses crt;
var s:string;
    i,j:byte;
    k:byte;
begin
clrscr;
writeln('Введите слово с повторяющимися символами');
readln(s);
i:= 1;
while i<length(s) do
if s[i]<>' ' then
 begin
  inc(k);
  for j:= length(s) downto i+1 do // мне кажется, что ошибочка тут
  if (s[j] = s[i]) or (s[j] in ['a'..'z']) then delete(s,j,k);
  i:= i+1;
 end
else i:= i+1; k:=0;
write(s);
readln
end.

Решение задачи: «Сортировка групп слов»

Листинг программы

s:='';

Объяснение кода листинга программы

Объединение пустой строки и строки, содержащей слова для сортировки, в одну строку. s:='Слово1 Слово2 Слово3';

Оцени полезность:

9 голосов , оценка 4.222 из 5

Похожие ответы