Из заданного предложения удалите те слова, которые уже встречались в предложении раньше — Pascal(Паскаль)

var
a:string;
b:array[1..100]of string;
c:array[1..100]of integer;
i,j,k: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
if c[i]=1 then write(b[i],' ');
readln;
end.