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

[Jaxx]

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

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

[Jaxx]

А вот так:

uses crt;
const
 znak:array[1..14] of byte=(9,10,13,32,40,41,44,46,47,58,59,92,123,125);
var
 slovo:array[1..51] of string[15];
 {mass:array[1..51] of string;}
 mask:array[1..51] of byte;
 txt:array[1..60000] of char;
 kol:byte;
 ns:byte;
 f1:text;
 f:file of char;
 simv:char;
 flag:boolean;
 j:byte;
 n:byte;
 dtxt:word;
 i:word;
 s,s1,temp:string;
begin
 clrscr;
 write('Vvedite ymia ishodnogo faila: ');
 readln(s);
 assign(f,s);
 {$I-} reset(f); {$I+}
  if ioresult<>0 then begin
     writeln('file not found or read error!');
     readkey;
     close(f);
     halt(1);
  end;
i:=1;
for i:=1 to 51 do mask[i]:=0;
i:=1;
slovo[1]:='and';slovo[2]:='asm';slovo[3]:='array';slovo[4]:='begin';slovo[5]:='case';
slovo[6]:='const';slovo[7]:='constructor';slovo[8]:='destructor';slovo[9]:='div';slovo[10]:='do';
slovo[11]:='downto';slovo[12]:='else';slovo[13]:='end';slovo[14]:='exports';slovo[15]:='file';
slovo[16]:='for';slovo[17]:='function';slovo[18]:='goto';slovo[19]:='if';slovo[20]:='implementation';
slovo[21]:='in';slovo[22]:='inherited';slovo[23]:='inline';slovo[24]:='interface';slovo[25]:='label';
slovo[26]:='library';slovo[27]:='mod';slovo[28]:='nil';slovo[29]:='not';slovo[30]:='object';
slovo[31]:='of';slovo[32]:='or';slovo[33]:='packed';slovo[34]:='procedure';slovo[35]:='program';
slovo[36]:='record';slovo[37]:='repeat';slovo[38]:='set';slovo[39]:='shl';slovo[40]:='shr';
slovo[41]:='string';slovo[42]:='then';slovo[43]:='to';slovo[44]:='type';slovo[45]:='unit';
slovo[46]:='until';slovo[47]:='uses';slovo[48]:='var';slovo[49]:='while';slovo[50]:='with';slovo[51]:='xor';
  write('Vvedite imia novogo faila: ');
  readln(s1);
  assign(f1,s1);
  {$I-} rewrite(f1); {$I+}
   if ioresult<>0 then begin
      writeln('error writing file!');
      readkey;
      close(f1);
      halt(1);
   end;
   s:=''; s1:=''; temp:='';
   kol:=0;
   n:=0;
 while not eof(f) do begin
   read(f,simv);
   inc(dtxt);
   ns:=ord(simv);
   txt[dtxt]:=chr(ns);
    for i:=1 to dtxt do begin
        ns:=ord(txt[i]);
        flag:=true;
        for j:=1 to 14 do begin
        if ns=znak[j] then flag:=false;
          if flag then s:=s+txt[i];
         for n:=1 to 51 do begin
           if s=slovo[n] then begin
             mask[n]:=kol+1;
             i:=1;
             for i:=1 to 51 do begin
               n:=i;
               if mask[n]>0 then begin
                write('Slovo : ' ,slovo[n]);
                writeln('vstrechaetsia : ',mask[n],' raz');
                s1:=slovo[n];
                writeln(f1,s1);
               end;
              end;
            end;end;end;end;end; {<== ЗДЕСЬ ПРОГРАММА ОСТАНАВЛИВАЕТСЯ НАМЕРТВО, ВЫХОЖУ ctrl+break}
readln;
close(f);
close(f1);
end.