Напечатать те слова последовательности, которые отличаются от последнего слова - Pascal

var
  i,l:integer;
  t:string;
  c:char;
  a:boolean;
  b:array[1..128] of string;
begin
    write('Введите последовательность:');
   l:=0;
    while not eoln do begin
      read(c);
      if not (c in ['.',',']) then t:=t+c else
      if t<>'' then begin
         l:=l+1; 
         b[l]:=t;
         t:='';
         if c='.' then break;
      end;
    end;
   write('Новая последовательность:');
   a:=false;
   for i:=1 to l-1 do 
      if b[i]<>b[l] then begin
       delete(b[i],1,1);
       if a then write(',') else a:=true;
       write(b[i]);
      end;
   if a then writeln('.') else writeln('Отсутствуют слова!');
end.