Версия для печати темы

program strngs;
const razdel: set of char = [' ',',','.']; {разделители слов - пробел, точка, запятая. Больше не придумал +)}
var a: array[1..10] of string[20];
   i, j, n : integer;
   s, part: string;
begin
   ReadLn(s);
   i:=1; j:=1; n:=length(s);
   while i<=n do
   begin
       while s[i] in razdel do inc(i); {пропускаем  разделители слов}
       while (i<=n) and not (s[i] in razdel) do
       begin
         part:=part+s[i]; inc(i); {накапливаем строку}
       end;
       a[j]:=part; {<== тут изменить +)}
       inc(j) {ищем следующее слово}
   end;
{Ну тут их вывести. В переменной j должно получиться количество слов}
end.

type TWordInfo = record
 s: string; {Само слово}
 count: byte; {Сколько раз оно встречалось}
end;
var a: array[1..10] of TWordInfo;

Program strings;
Var
j,n:integer;
s,sl,s1:string;
I,k:byte;
Begin
Writeln (‘Введите строку:’);
Readln (s);
k:=1;
j:=1;
For I:=1 to length(s) do
If s[I]=’ ‘ then
Begin
Sl:=copy(s,j+1,k);
j:=I;
k:=0;
s1:=copy (s,j,length(s));
If pos(sl,s1)=0 then
Begin
Writeln (sl);
k:=k+1;
s1:=copy(s,I+1,n);
End;
k:=k+1;
End;
End.

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.