Если количество слов в тексте нечётное, то вывести среднее слово, если чётное, то вывести два средних слова - Pascal ABC

Формулировка задачи:

Дан текст, в которой слова разделены пробелами, а в конце стоит точка. Если количество слов в тексте нечётное - вывести среднее слово; если чётное - вывести 2 средних слова.

Решение задачи: «Если количество слов в тексте нечётное, то вывести среднее слово, если чётное, то вывести два средних слова»

Листинг программы

  j:=1; while GetWord(s,w,j) do Inc(n);
  j:=1; for i:=1 to n div 2 do GetWord(s,w,j);
  Write(w);
  if not Odd(n) then begin
    GetWord(s,w,j); Write(' ',w);
  end;

Объяснение кода листинга программы

Переменная j инициализируется значением 1.
В цикле while считывается слово из текста, пока количество слов не станет нечётным (остаток от деления на 2 равен 1).
В цикле for считываются два средних слова, если количество слов чётное.
Выводится считанное слово.
Проверяется, является ли количество слов чётным.
Если количество слов чётное, то выводится пробел и считанное слово.