Поменять в строке предпоследнее слово и слово минимальной длины, содержащее не менее двух букв "и"

Program words_exchange;
 
const SIZE = 100; { Максимальное кол-во слов }
      char = 'm'; { Символ который должен быть в слове не менее двух раз}
 
var line:  string;
    words: array [1..SIZE] of string;
    word:  string;
    i, n:  integer;
    minLengthWordIndex: integer;
    resultString:       string;
 
{ Функция проверяет есть ли в строке 
  заданный символ не менее двух раз}
function hasTwoTimesChar(line: string; char: string): boolean;
var i, count: integer;
begin
  count := 0;
  for i := 1 to length(line) do
  begin
    { Если текущий символ - искомый, увеличиваем счётчик на один}
    if line[i] = char then
      inc(count);
    { Если искомый символ встретился не менее двух раз, значит
      строка - отвечает условию}
    if count >= 2 then
    begin
      hasTwoTimesChar := true;
      exit;
    end;
  end;
  { Если выполнение дошло сюда, значит искомый символ не был
    встречен дважды, а значит строка - не удовлетворяет условие. }
  hasTwoTimesChar := false;
end;
 
BEGIN
  { Считываем строку }
  write('Enter line: ');
  readln(line);
 
  { Выделяем слова (под словом понимается последовательность символов между
    пробелами) }
  line := line + ' ';
  n := 0;
  while line <> '' do
  begin
    n := n + 1;
    words[n] := copy(line, 1, pos(' ', line)-1);
    delete(line, 1, pos(' ', line));
  end;
 
  { Ищем слово минимальной длины удовлетворяющее условию}
  minLengthWordIndex := 0;
  for i := 1 to n do
  begin
    { Если в данном слове символ встречается не менее двух раз}
    if hasTwoTimesChar(words[i], char) then
    begin
      { Если предыдущего слова не было (а значит индекс не менялся и равен нулю)}
      if minLengthWordIndex = 0 then
        minLengthWordIndex := i
      { Если было, то проверяем не короче ли текущее слово }
      else if length(words[minLengthWordIndex]) > length(words[i]) then
        minLengthWordIndex := i;
    end;
  end;
 
  { Если такого слова найдено не было - завершаем программу}
  if minLengthWordIndex = 0 then
  begin
    writeln('There is no such word with two ', char);
    exit;
  end;
 
  { Иначе меняем местами предпоследнее слово и найденное }
  word := words[n-1];
  words[n-1] := words[minLengthWordIndex];
  words[minLengthWordIndex] := word;
 
  { Записываем слова в строку }
  resultString := '';
 
  for i := 1 to n do
  begin
    resultString := resultString + words[i];
    if i <> n then resultString := resultString + ' ';
  end;
 
  { Выводим строку на экран }
  writeln('RESULT: "', resultString, '"');
END.