Перечислить по алфавиту все зарезервированные слова используемые в файле - Turbo Pascal

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

Необходимо перечислить по алфавиту все зарезервированные слова, используемые в файле, и указать количество появлений каждого слова. Входные данные: текстовый файл самой программы Выходные: зарезервированые слова и их количество

Решение задачи: «Перечислить по алфавиту все зарезервированные слова используемые в файле»

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

...
  while NextWord(w) do Inc(b[IndexOf(w)]);
  for i:=1 to High(kw) do if b[i]>0 then WriteLn(kw[i]:15,' ',b[i]);
...

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

Данный код на Turbo Pascal выполняет следующие действия:

Создается функция NextWord, которая принимает в качестве аргумента строку w и возвращает следующий символ из этой строки.
Создается массив b, который будет использоваться для подсчета количества вхождений каждого слова в строке.
Выполняется цикл while с условием NextWord(w) до тех пор, пока функция NextWord не вернет false. В каждой итерации цикла символ, следующий за последним символом последнего слова, добавляется в массив b.
Создается массив kw, содержащий все зарезервированные слова.
Выполняется цикл for с условием i<=High(kw) до тех пор, пока индекс i меньше максимального значения. Если значение элемента массива b с индексом i больше нуля, то слово с таким индексом выводится на экран.
Код завершается.