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

[Jaxx]

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

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

[volvo]

А здесь - я прогнал пошагово... Посмотри внимательно, что происходит вот тут:

...
  for j:=1 to 14 do begin
    if ns=znak[j] then flag:=false;
    if flag then s:=s+txt[i]; { <-- следующий символ из файла НЕ читается... }
...

Я взял файл с первым словом 'const', но после 5-ой итерации получил в строке s значение "ссссс", т.е. просто дублирование первого символа. Это будет продолжаться бесконечно... Да и вложенных циклов достаточно много - даже если исправишь этот недочет, программа будет медленно работать...

А чего ты не хочешь воспользоваться функцией, которую я приводил в посте №17 (немного переделанная функция Oleg_Z)? Я ее вроде погонял, сбоев не нашел... Нормально работает...