В строке определить количество повторяющихся слов

program vad2211;
uses crt;
var
   s,s1,temp:string;
   a,a1,k,len:integer;
begin
 clrscr;
 k:=0;s1:='';
 write('Stroka: ');
 readln(s);
 s:=s+' ';
 a:=pos(' ',s);
 if a=0 then
  begin
   writeln(s);
   writeln('Повторов: ',k);
  end
 else
  begin
   temp:=copy(s,1,a-1);
   repeat
     len:=length(temp);
     delete(s,1,len+1);
     repeat
         a1:=pos(temp,s);
         delete(s,a1,len+1);
     until pos(temp,s)=0;
    s1:=s1+temp+' ';
    a:=pos(' ',s);
    temp:=copy(s,1,a-1);
   until pos(temp,s)=0;
  end;
 writeln('the end');
 writeln(s1);
end.

var
a:string;
b:array[1..100]of string;
c:array[1..100]of integer;
i,j,k,rez:integer;
begin
writeln('vvedite stroku');
readln(a);
a:=' '+a;
for i:=1 to length(a)do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
for i:= 1 to k do
for j:=1 to i do
if b[i]=b[j] then inc (c[i]);
 for i:=1 to k do
begin
if c[i]=1 then write(b[i],' ');
inc(rez);
end;
writeln('kolichestvo=',k-rez;
readln;
end.

var
a:string;
b:array[1..100]of string;
c:array[1..100]of integer;
i,j,k,rez:integer;
begin
writeln('vvedite stroku');
readln(a);
a:=' '+a;
for i:=1 to length(a)do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
for i:= 1 to k do
for j:=1 to i do
if b[i]=b[j] then inc (c[i]);
 for i:=1 to k do
begin
if c[i]=1 then
begin
write(b[i],' ');
inc(rez);
end;
end;
writeln('kolichestvo=',k-rez);
readln;
end.