Сжатие программы

Program kod;
 
const
  ms1: array[1..54] of string =  ('const', 'type', 'program', 'integer', 'boolean', 'real', 'procedure', 'function', 'string', 'begin',
                                  'write', 'writeln', 'read', 'readln', 'while', 'repeat', 'until', 'delete', 'else', 'then', 'array',
                                  'byte', 'length', 'copy', 'true', 'false', 'case', 'insert', 'downto', 'uses', 'longint', 'shortint',
                                  'word', 'char', 'double', 'extended', 'comp', 'half', 'exit', 'break', 'readkey', 'delay', 'input',
                                  'output', 'record', 'file', 'text', 'close', 'reset', 'rewrite', 'append', 'seek', 'filepos', 'filesize') ;
  ms2: array[1..54] of string =  ('$1', '$2', '$3', '$4', '$5', '$6', '$7', '$8', '$9', '$10',
                                   '$11', '$12', '$13', '$14', '$15', '$16', '$17', '$18', '$19', '$20', '$21',
                                   '$22', '$23', '$24', '$25', '$26', '$27', '$28', '$29', '$30', '$31', '$32',
                                   '$33', '$34', '$35', '$36', '$37', '$38', '$39', '$40', '$41', '$42', '$43',
                                   '$44', '$45', '$46', '$47', '$48', '$49', '$50', '$51', '$52', '$53', '$54');
  
var
  f: text;
  s,name: string;
  i: integer;
  fl: boolean;
 
function ArchStr(s: string; fl: boolean): string;
var
  i,j,k: integer;
begin
  for i:=1 to 54 do
    if fl then
      begin
        if (pos(ms1[i], s)<>0) then
          for j := 1 to 54 do
            if pos(ms1[j], s) > 0 then
              begin
                k:=pos(ms1[j],s);
                delete(s, k, length(ms1[j]));
                insert(ms2[j], s, k);
              end;
      end
    else
      begin
        if (pos(ms2[i], s)<>0) then
          for j:=1 to 54 do
            if pos(ms2[j], s) > 0 then
              begin
                k:=pos(ms2[j],s);
                delete(s, k, length(ms2[j]));
                insert(ms1[j], s, k);
              end;
      end;
  ArchStr:=s;
end;
 
begin
  writeln('Имя кодируемого файла:');
  read(name);
  assign(f, name);
  reset(f);
  repeat
    writeln('1: Шифровать файл.');
    writeln('2: Расшифровать файл.');
    readln(i);
  until i in [1,2];
  fl:=i=1;
  writeln('Результат:');
  while not eof(f) do
    begin
      readln(f,s);
      s:=ArchStr(s,fl);
      writeln(s);
    end;
  close(f);
end.