Решаю задачу, никак не решается=)

[brz]

вообщем надо Ввести строку. Найти символы входящие только в первое или последнее слово. Нужно делать типом множество-set. не получается поэтому string подставил

uses crt;
var k,n,i,j: integer;
s,a,b: string;
begin
clrscr;
writeln('vvedite stroku'); readln(s);
k:=pos(' ',s);
a:=copy(s,1,k-1);
writeln(a);
n:=length(a);
b:=a;
for i:=1 to n-1 do
*for j:=i+1 to n do
** * if a = a[j] then b:= delete(b,i,1);
write(b);
readkey;
end.

Я вот что-то напортачил тут, не знаю что делать.

[kuy]

Вопрос по условию: нужно в программе написать несколько слов и вывести подряд первое с последним?

[brz]

ну тоесть если будет предложение ПРИВЕТ МОЙ ДРУГ он должен вывести П Р И В Е Т Д Р У Г