Строковые переменные Опции

[Очередная]

??? Привет! Чайник просит помощи у умных людей!!!
Помогите решить задачу на строковые переменные. Задача: Сколько одинаковых слов в предложении, введенном с клавиатуры? Вывести на экран слова и их количество. Заранее большое спасибо

[P@sh@]

хм, столько ошибок... зачем нужны j и k? n вообще неизвестно чему равна
задумка в общем-то понятна, реализуется гораздо легче:

Код

program superstrings;
var s,s1: string;
   i: integer;
begin
 writeln('Enter the String:');
 readln(s);
 while s<>'' do begin
   i:=pos(' ',s); // в кавычках пробел
   if i=0 then i:=length(s)+1;
   s1:=copy(s,1,i-1);
   s:=copy(s,i+1,length(s));
   if pos(s1,s)>0 then writeln(s1);
 end;
end.

если б я знал, что pos может искать не только символ, но и строку! я бы сразу это написал. блин. почему-то у меня в памяти сохранилось такое описание функции - pos(c: char; s: string): integer; - откуда, интересно? может со времен Express Pascal'я на советских машинах ПК8010"Корвет" ?