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

uses crt;
const ds=['a'..'z',' ','.'];
function Bukva2(x:string):boolean;
var i,j,k,p:byte;
begin
Bukva2:=true;
for i:=1 to length(x) do
  begin
   k:=0;
   for j:=1 to length(x) do
   if x[i]=x[j] then k:=k+1;
   if k=1 then
     begin
      Bukva2:=false;
      break;
     end;
  end;
end;
var s,s1,s2:string;
    sm,k,t,l,ml,i:byte;
begin
clrscr;
repeat
writeln('s:');readln(s);
sm:=0;
for i:=1 to length(s) do
if not (s[i] in ds) then
  begin
   writeln('Введены недопустимые символы!. Повторите ввод.');
   sm:=1;
   break;
  end;
if pos('.',s)=0 then
writeln('В последовательности нет точки. Повторите ввод.')
else
 begin
   delete(s,pos('.',s)+1,length(s)-pos('.',s));
   insert(' ',s,pos('.',s));
   while pos('  ',s)>0 do
   delete(s,pos('  ',s),1);
   k:=0;
   for i:=1 to length(s) do
   if s[i]=' 'then inc(k);
   if k=1 then writeln('В последовательности менее 2 слов. Повторите ввод.')
   else if k>50 then writeln('В последовательности более 50 слов. Повторите ввод.')
   else
     begin
      s2:=s;
      l:=8;ml:=0;
      while pos(' ',s2)>0 do
        begin
          if length(copy(s2,1,pos(' ',s2)-1))>l then
            begin
             ml:=1;
             writeln('В последовательности есть слова > 8 символов. Повторите ввод.');
             break;
             end;
          delete(s2,1,pos(' ',s2));
        end;
     end;
  end;
until (sm=0)and(k>1)and(k<=20)and(ml=0);
for i:=pos('.',s)-2 downto 1 do
if s[i]=' 'then
   begin
     k:=i;
     break;
   end;
s1:=copy(s,k+1,pos('.',s)-k-2);
while pos(' ',s)>0 do
  begin
   if (copy(s,1,pos(' ',s)-1)<>s1)and Bukva2(copy(s,1,pos(' ',s)-1)) then
 
   write(copy(s,1,pos(' ',s)-1),' ')
   else
   delete(s,1,pos(' ',s));
  end;
read
end.