Дан текст. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них

program da_zdravstvuet_kollektivniy_trud_ura;
uses crt;
 
const
  maxlen = 8;
  minwords = 2;
  maxwords = 50;
  _glasn = ['q','e','y','u','i','o','a'];
  _sogl = ['a'..'z'] - _glasn;
 
var
  words : array[1 .. maxwords] of
      string[maxlen];
 
function get_words: integer;
const
  _alphabet = _glasn + _sogl;
  _delimit = [' ', ','];
  _endstr = ['.'];
var
  ch: char;
  word_count: integer;
begin
  word_count := 1;
  repeat
    ch := readkey;
    if (ch in _alphabet) then begin
      if length(words[word_count]) < maxlen then begin
        words[word_count] := words[word_count] + ch; write(ch)
      end
    end
    else
      if (ch in _delimit) and (words[word_count] <> '') then begin
        if (word_count < maxwords) then begin
          inc(word_count); write(ch)
        end
      end
  until (ch in _endstr) and (word_count >= minwords);
  write(ch);
  writeln;
  get_words := word_count
end;
 
type
  char_set = set of char;
 
const
  arrset: array[boolean] of char_set = (_glasn, _sogl);
 
var
  flag, which : boolean;
  i, j, n : integer;
 
begin
  clrscr;
  writeln('Введите строку (слов: 2-50; букв в слове: 1-8;');
  writeln('  между словами '' '' или '',''; в конце ''.''):');
  n := get_words;
  writeln('Выборка по условию 1:');
  for i := 1 to n - 1 do begin
    if words[i] <> words[n] then begin
      which := words[i][1] in _glasn;
      flag := true; j := 1;
      while (j <= length(words[i])) and flag do begin
        flag := words[i][j] in arrSet[which xor odd(j)];
        inc(j)
      end;
      if flag then write('  ',words[i])
    end
  end;
 
  writeln;
  writeln('Выборка по условию 2:');
  for i := 1 to n - 1 do begin
    if odd(length(words[i])) and (words[i] <> words[n]) then begin
      delete(words[i], length(words[i]) div 2 + 1, 1);
      write('  ',words[i]);
    end
  end;
 
  readkey
end.