слова с повторяющимися символами Опции

[18192123]

Дана строка, состоящая из слов, разделенных пробелом. Удалить из строки слова, содержащие повторяющиеся символы. ( c помощью функций, не использовать стандартн. ф-ции и процедуры для строк, кроме lenght,ord,char)


единственное, что пока сделала , нашла количество слов в строке

var
   st:string[40];
   i,k:integer;
begin
readln (st);
for i:=1 to length(st) do
    if st[i]=' ' then k:=k+1;
    writeln ('k=', k);

не пойму, как теперь работать с отдельными словами

Сообщение отредактировано: 18192123 - 20.11.2006 17:38

[volvo]

Зайди вот сюда: Разбиение на слова. Все способы.

и посмотри...

[18192123]

Зайди вот сюда: Разбиение на слова. Все способы.

и посмотри...

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