Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных русских букв; между соседними словами — запятая, за последним словом — точка. Напечатать все слова последовательности, которые отличны от последнего слова, предварительно преобразовав каждое из них по следующему правилу: оставить в слове только первые вхождения каждой буквы — Pascal(Паскаль)

program aa;
var s,s1,s2,s3:string;
i,j:integer;
begin
writeln('Введите слово');
readln(s);
i:=length(s);
 
while i>=0 do
 begin
 if (s[i]=',') or (i=0)  then
 begin
 s1:='';
 j:=i+1;
 while (s[j]<>',') do
 begin
     if s[j]='.' then begin s2:=s1; break; end;
      s1:=s1+s[j];
      j:=j+1;
     end;
      writeln('s1=',s1);
      if s1[1]<>s2[1] then insert(s1[1],s3,1);
   end;
  i:=i-1;
 end;
  writeln('Последнее слово=',s2);
  writeln('s3=',s3);
  readln;
  end.