Переписать файл так, чтобы термины выделялись прописными буквами - Turbo Pascal

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

Помогите, пожалуйста. Задали написать вот такую программу "В текстовом файле специальные термины выделены кавычками. Переписать файл так, чтобы термины выделялись прописными буквами." А я в этом полный чайник. Уже, конечно же, начал изучать соответсвующую литературу, но увы, как сделать это на данном этапе совершенно не знаю. Буду рад любой помощи.

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

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

  if inTerm and (s[i] in SMALL) then s[i]:=Chr(Ord(s[i])-32);
  WriteLn(g,s);

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

В первой строке кода проверяется условие inTerm и s[i] in SMALL. Если оба условия истинны, то переменной s[i] присваивается значение Chr(Ord(s[i])-32). Это преобразует каждый символ в нижний регистр.
Затем вызывается функция WriteLn(g,s), которая записывает строку s в файл g. Здесь s - это строка, преобразованная в нижний регистр.
Код завершается без использования вложенных списков.