В первый файл пишите идентификаторы. Искать их нужно перед операторами :=, =, : и после зарезервированных слов procedure, function. Затем ключевые слова- тут только если создать список возможных слов и искать каждое из этого списка. Затем константы- именованные можно отнести к идентификаторам, а неименованные можно найти например так: последоватеьно читать все слова и переводить их в числа встроенной функцией- если функция не вернёт ошибку, то это число. Знаки операций и разделители- это как и ключевые слова, создайте список и сверяйте.