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

Var s,s1,t,p:string;
    min:byte;
Begin
    write('Введите строку: ');readln(s);
    Delete(s,Pos('.',s),1);min:=255;t:=s+' ';p:='';
    While Pos(' ',t)<>0 do {Определяем min слово}
     Begin 
      s1:=Copy(t,1,Pos(' ',t)-1); {Копируем слово до пробела в s1}
      Delete(t,1,Pos(' ',t)); {Удаляем из строки t скопированное слово}
      if (Length(s1)<min)and(s1<>'') then {Если длина слова s1 меньше чем min}
       min:=Length(s1);{в min запоминаем длину слова}
     End;
    p:=s1;{Запонинаем последнее слово в переменной p}
    Delete(s,Length(s)-Length(p),Length(p));{Удаляем из строки s последнее слово}
    s:=s+' ';{Добавляем пробел}
    While Pos(' ',s)<>0 do {пока есть пробелы выполняем}
     Begin 
      s1:=Copy(s,1,Pos(' ',s)-1);{Копироуем слово из строки s в строку s1}
      Delete(s,1,Pos(' ',s));{Удаляем скопированное слово}
      if (Length(s1)=min)and(s1<>p) then write(s1+' ');{Если длина = min и само слово не равно последнему выводим это слово}
     End;
End.