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

function Word2Char(s: string): boolean;
var
  i,j: integer;
  c:array[byte] of byte; {объявляем массив-счетчик. вообще нужно только для букв от a до z}
  r: boolean;
begin
  Fillchar(c,Sizeof(c),0); {обнуляем его}
 
  for i:=1 to Length(s) do{проверяем по каждой букве и считаем количество повторов}
  begin
    j:=Ord(s[i]);             {буква а имеет код $61, т.е j получит значение 97 десятичное..}
    Inc(c[j]);                 {увеличиваем счетчик этой буквы}
  end;
 
  Word2Char:=True;        {устанавливаем выходное значение в Да}
  for i:=Ord('a') to Ord('z') do
  if c[i]=1 then               {и проверяем все счетчики на запрещенное значение 1}
  begin                          {то есть буква встречается только один раз}
    Word2Char:=False;
    Exit;
  end;
end;

program lab;
type
 atext = array[1..30] of string[10];
const
alph2: string='abcdefghijklmnopqrstuvwxyz';
var s,s1,s3,ps,s2:string;
    n,k,h,j,i:byte;
    a:atext;
    c:char;
begin
writeln('Введите: ');
 i := 1;
 read(c);
 while c <> '.' do
 begin
 s:=s+c;
 read(c);
 end;
s:=s+'.';
n:=1;
    repeat
        if copy(s,n,2)='  ' then
            s:= copy(s,1,n) + copy(s,n+2,length(s))
        else
            n:=n+1
    until (n>length(s));
s3:=s;
while s<>'' do
begin
  i:=1;
  while i<>length(s)+1 do
  begin
       if s[i]='.' then h:=1 else h:=0;
       if (s[i]=' ')or(s[i]='.') then break else
       begin
       s1:=s1+s[i];
       k:=i;
       end;
       inc(i);
  end;
     if h=1 then
     begin
     ps:=s1;
     delete(s,1,k+1);
     s1:=''
     end
  else
  begin
    delete(s,1,k+1);
    s1:='';
  end;
end;
while s3<>'' do
begin
  i:=1;
  while i<>length(s3)+1 do
  begin
       if s3[i]='.' then h:=1 else h:=0;
       if (s3[i]=' ')or(s3[i]='.') then break else
       begin
       s1:=s1+s3[i];
       k:=i;
       end;
       inc(i);
  end;
     if h=1 then
     begin
     delete(s3,1,k+1);
     s1:=''
     end
  else
  begin
    if (pos(s1,alph2)<>0)and(s1<>ps) then s2:=s2+' '+s1;
    delete(s3,1,k+1);
    s1:='';
  end;
end;
 
writeln('---');
writeln('Соответствуют шаблону: ',s2);
writeln('Последнее слово: ',ps);
end.