Форматирование исходников, Паскаль-программ Опции

[Jaxx]

Вот я опять и появился. Теперь у меня задание еще более интересное. Смысл следующий: есть текстовый файл с исходником программы на Паскале, нужно-
1) первые буквы служебных слов сделать заглавными
2) текст комментариев заменить на их номер по порядку
3) переписать текст в новый файл с удалением лишних пробелов.
Я понимаю, что тут может быть только один путь решения: создать массив (или множество) служебных слов, затем считывать текст файла посимвольно (т.к. служебные слова обязательно должны быть отделены от других пробелами или знаками препинания). Я прав? С комментариями попроще: просто найти символ '{' и проверить следующий после него, и если это не '$' то удалить все символы начиная с этого до символа '}'. Удаление пробелов еще проще. Но с первой частью задания у меня небольшие трудности. Решайте! :yes:

В следующий раз давайте более подходящий заголовок

[volvo]

Jaxx, ты ходил по первой ссылке, которую я тебе дал? Там что, по-твоему служебные слова для красоты в массив собраны? Наверное не просто так, а все-таки там тоже ищутся вхождения служебных слов. Читается файл строка за строкой, каждая строка разбивается на токены, и проверяешь, является ли очередной токен служебным словом. Как - смотри в том исходнике...

А в твоей программе есть проблема:

const
 base:array[1..12] of string=('begin','else','end','function','goto','label','not',
'or','procedure','program','uses','var');
 spec1:array[1..8] of string=('and','asm','constructor','destructor','external',
'forward','implementation','inline');
...
procedure massiv(cycle,base,spec1,spec2,types,math,direct:array of string);
...
begin
...
for i:=11 to 23 do
  mas[i]:=base[i]; { а что, в Base имеется элемент с индексом > 12 ??? } 
for i:=23 to 31 do
  mas[i]:=spec1[i]; { а в Spec1 - с индексом > 8 ??? }
...
{ и так далее... }
end;

[Jaxx]

А в моём варианте проги, кроме заполнения массива есть ещё какие-нибудь ошибки? Если да, то покажите... :p2: