кодер-декодер

 uses crt;
 var i:integer;
 f,f1:text;
 s:char;
 c:string;
 begin
 assign(f,'E:\in.txt');
 assign(f1,'E:\out.txt');
 reset(f);
 rewrite(f1);
 for i:= 0 to eof(f) do
       begin
            read(f,s);
            case s of
            А:s:=11;
            Б:s:=12;
            В:s:=13;
            Г:s:=14;
            Д:s:=15;
            Е:s:=16;
            Ё:s:=21;
            Ж:s:=22;
            З:s:=23;
            И:s:=24;
            Й:s:=25;
            К:s:=26;
            Л:s:=31;
            М:s:=32;
            Н:s:=33;
           О:s:=34;
            П:s:=35;
            Р:s:=36;
            С:s:=41;
           Т:s:=42;
            У:s:=43;
            Ф:s:=44;
            Х:s:=45;
            Ц:s:=46;
            Ч:s:=51;
            Ш:s:=52;
            Щ:s:=53;
            Ъ:s:=54;
            Ы:s:=55;
            Ь:s:=56;
            Э:s:=61;
            Ю:s:=62;
            Я:s:=63
            else s:=' ';
            write (f,s);
       end;
            close(f,f1);
 end.

case s of
'А':

var s:char;

read(f,s);
   case s of
   'À':c:='11';

            else a:=' ';
            write (f,a);

c,a:string;

var i:integer;
 f,f1:text;
 s:char;
 c:string;

 uses crt;
 var i,x:integer;
 f,f1:text;
 s:char;
 c,a:string;

read(f,s);
   case s of
   'А':a:='11';
   ....
   else a:=' ';
  end;
  write (f,a);

 else a:=' ';
  write (f,a);
               end;

for i:= 0 to eof(f) do
  begin
   read(f,s);
   case s of
   'À':a:='11';
   ...........;
   else a:=' ';
   end;
   write (f,s);
  end;
 close(f,f1);

program my;
 uses crt;
 var i,x:integer;
 f,f1:text;
 s:char;
 c,a:string;
 begin
 assign(f,'E:\in.txt');
 assign(f1,'E:\out.txt');
 reset(f);
 rewrite(f1);
 read(f, c);
while not eof(f) do
       begin
            read(f,s);
            case s of
            'À','à':a:='11';
            'Á','á':a:='12';
            'Â','â':a:='13';
            'Ã','ã':a:='14';
            'Ä','ä':a:='15';
            'Å','å':a:='16';
            '¨','¸':a:='21';
            'Æ','æ':a:='22';
            'Ç','ç':a:='23';
            'È','è':a:='24';
            'É','é':a:='25';
            'Ê','ê':a:='26';
            'Ë','ë':a:='31';
            'Ì','ì':a:='32';
            'Í','í':a:='33';
            'Î','î':a:='34';
            'Ï','ï':a:='35';
            'Ð','ð':a:='36';
            'Ñ','ñ':a:='41';
            'Ò','ò':a:='42';
            'Ó','ó':a:='43';
            'Ô','ô':a:='44';
            'Õ','õ':a:='45';
            'Ö','ö':a:='46';
            '×','÷':a:='51';
            'Ø','ø':a:='52';
            'Ù','ù':a:='53';
            'Ú','ú':a:='54';
            'Û','û':a:='55';
            'Ü','ü':a:='56';
            'Ý','ý':a:='61';
            'Þ','þ':a:='62';
            'ß','ÿ':a:='63';
             else a:=' ';
             end;
             write (f1,a);
                   end;
            close(f);
            close(f1);
           
 end.

read(f, c);

readln(f, c);

while not eof(f) do
 begin
  readln(f,str);//читаем строку
  while str<>'' do //пока она не пустая
   begin
    a:=copy(str,1,2); //берем 2 первых символа, например 11
    //присваиваем нужный символ, пишем в файл или куда там
    delete(str,1,2);
   end;
 end;