Отредактировать строку, оставив в слове только первые вхождения каждой буквы.

uses crt;
var s:string;
     :integer;
    a:array [1.100] of string;
begin
 clrscr;
 readln(s);
 s[length(s)]:=' ';
 while s<>'' do
  begin
   k:=pos(' ',s);
   t:=copy(s,1,k-1);
 
[B] тело программы  [/B]
   
   write(t);
   delete(s,1,k);
  end;
end.

uses crt;
const rz=[':',';',',',' ','.'];{разделители слов}
var s,s1,s2:string;
    n,i,j,k,l,m:byte;
begin
clrscr;
writeln('Введите строку');
readln(s);
s2:='';
i:=1;
while i<=length(s) do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если буква, а перед ней разделитель, или она первая}
 begin
  k:=i;s1:='';
  while not(s[k] in rz)and(k<=length(s))do {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[k];{составляем слово}
    k:=k+1;{идем вперед}
   end;
  j:=length(s1);
  m:=1;
  while m<=length(s1)do{проверяем буквы в слове}
   begin
    for l:=length(s1)downto m+1 do
    if s1[l]=s1[m] then delete(s1,l,1);{если впереди есть такие же, их удаляем}
    m:=m+1;
   end;
  s2:=s2+s1; {пишем в новую строку}
  i:=i+j;{перепрыгиваем}
  end
else
 begin
  s2:=s2+s[i];{если не слово, пишем и идем вперед}
  i:=i+1;
 end;
write(s2);
readln
end.