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

[Jaxx]

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

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

[Jaxx]

Я тут вот чего-то написал, правда нифига не работает. Гляньте, да поправьте, а то вроде с виду все должно работать (по крайней мере. идея симпатичная).

uses crt;
const
  cycle:array[1..11] of string=('do','downto','else','for','if','in','repeat','then','to','until','while');
  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');
  spec2:array[1..7] of string=('interface','interrupt','nil','object','shl','shr','packed');
  types:array[1..9] of string=('array','case','const','file','record','set','string','type','unit');
  math:array[1..6] of string=('div','mod','of','or','with','xor');
  direct:array[1..6] of string=('absolute','assembler','far','near','private','virtual');
  symbols:array[1..14] of char=('{','}','(',')','=',' ',';',':','+','-','/','*','.',',');
var
  f,f_new:text;
  s,s1:string;
  i:byte;
  kol:byte;
  mas:array[1..59] of string;
  mas2:array[1..59] of byte;
  temp:array[1..59] of string;

procedure massiv(cycle,base,spec1,spec2,types,math,direct:array of string);
var mas2:array [1..59] of byte;
    begin
    for i:=1 to 59 do
     temp[i]:='';
    for i:=1 to 11 do
     mas[i]:=cycle[i];
     for i:=11 to 23 do
     mas[i]:=base[i];
     for i:=23 to 31 do
     mas[i]:=spec1[i];
     for i:=31 to 38 do
     mas[i]:=spec2[i];
     for i:=38 to 47 do
     mas[i]:=types[i];
     for i:=47 to 53 do
     mas[i]:=math[i];
     for i:=53 to 59 do
     mas[i]:=direct[i];
    for i:=1 to 59 do
    mas2[i]:=kol;
end;

begin
clrscr;
  writeln('Vvedite imya faila: ');
  readln(s);
  assign(f,s);
  {$I-} reset(f); {$I+}
   if ioresult<>0 then writeln('Cannot open file to read!');
  writeln('Vvedite imya novogo faila: ');
  readln(s1);
  assign(f_new,s1);
  {$I-} rewrite(f_new); {$I+}
   if ioresult<>0 then writeln('Cannot create file to input!');
   massiv(cycle,base,spec1,spec2,types,math,direct);
   s:=''; s1:='';
   i:=0; kol:=0;
  while not seekeof(f) do begin
 readln(f,s);
 massiv(cycle,base,spec1,spec2,types,math,direct);
  if s=symbols[i]+mas[i]+symbols[i] then begin
     mas2[i]:=kol+1;
     writeln('slovo' ,mas[i],' vstrechaetsia ',mas2[i],' raz');
     end;
  end;
readln;
end.