Перевод текста из кодировки ascii в unicode

type
  TTable = array [#0..#255] of word;
const
  Cp1251ToUtf16: TTable =
  (
    $0000,       <--- для символов от #0 до #127 коды совпадают
    $0001,
...................
    $0402,         <-- для остальных символов нужно смотреть соответствие по таблице
    $0403,
    $201A,
...................
  );

program smag;
 
const
i:array [1..64] of char = (
    'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ж',
    'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р',
    'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ъ',
    'Ы', 'Ь', 'Э', 'Ю', 'Я', 'а', 'б', 'в', 'г', 'д',
    'е', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о',
    'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш',
    'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я');
Unicode: array['А'..'я'] of word = (
   1040,1041,1042,1043,1044,1045,1046,1047, 1048, 1049,
   1050, 1051, 1052, 1053, 1054, 1055, 1056, 1057, 1058, 1059,
   1060, 1061, 1062, 1063, 1064, 1065, 1066, 1067, 1068, 1069,
   1070, 1071, 1072, 1073, 1074, 1075, 1076, 1077, 1078, 1079,
   1080, 1081, 1082, 1083, 1084, 1085, 1086, 1087, 1088, 1089,
   1090, 1091, 1092, 1093, 1094, 1095, 1096, 1097, 1098, 1099,
   1100, 1101, 1102, 1103);
  {#1040,#1041,#1042,#1043,#1044,#1045,#1046,#1047,#1048,#1049,
  #1050,#1051,#1052,#1053,#1054,#1055,#1056,#1057,#1058,#1059,
  #1060,#1061,#1062,#1063,#1064,#1065,#1066,#1067,#1068,#1069,
  #1070,#1071,#1072,#1073,#1074,#1075,#1076,#1077,#1078,#1079,
  #1080,#1081,#1082,#1083,#1084,#1085,#1086,#1087,#1088,#1089,
  #1090,#1091,#1092,#1093,#1094,#1095,#1096,#1097,#1098,#1099,
  #1100,#1101,#1102,#1103);}
//Unicode1: array[1..32] of char 
var
ch:char;
write_word:word;
input_file:text;
mid_file:file of word;
output_file: file of byte;
s,k: integer;
 
begin
 s:=1;
 while s<>0 do
 begin
 assign(input_file,'in.txt');
 reset(input_file);
 assign (mid_file,'mid.txt');
 rewrite (mid_file);
 assign(output_file,'out.txt');
 rewrite(output_file);
 writeln ('Select the charset');
 writeln('1 - unicode');
 readln(k);
 writeln('Enter 0 for exit');
 readln(s);
 end;
 
//unicode
/////////
        if (k=1) then
        begin
          while not eof(input_file)   do
            begin
              read(input_file,ch);
              writeln('ch',ch);
              for k:=1 to 64 do
               if i[k]=ch then
              begin
              write_word:=Unicode[ch];
              //writeln('write_word ', write_word, 'Unicode[ch] ', Unicode[ch], 'ch', ch);
              write(mid_file,write_word);
              end;
               if ord(ch)<128 then
              begin
              write_word:=ord(ch);
              write(mid_file,write_word);
              end;
               if ord(ch)=168 then
              begin
              write_word:=1025;
              write(mid_file,write_word);
              end;
               if ord(ch)=184 then
               begin
               write_word:=1105;
               write(mid_file,write_word);
               end;
            end;
         end;   
    close(input_file);
    close(mid_file);
    close(output_file);
end.

  if ch<128 then
    write_word:=ord(ch)
  else
    write_word:=Table[ch];

  write_word:=Table[ch];

TYPE
  UniTable = array [0..127] of Word;
CONST
  CP866_Uni  : UniTable =
               ( $0410, $0411, $0412, $0413, $0414, $0415, $0416, $0417,
                 $0418, $0419, $041A, $041B, $041C, $041D, $041E, $041F,
                 $0420, $0421, $0422, $0423, $0424, $0425, $0426, $0427,
                 $0428, $0429, $042A, $042B, $042C, $042D, $042E, $042F,
                 $0430, $0431, $0432, $0433, $0434, $0435, $0436, $0437,
                 $0438, $0439, $043A, $043B, $043C, $043D, $043E, $043F,
                 $2591, $2592, $2593, $2502, $2524, $2561, $2562, $2556,
                 $2555, $2563, $2551, $2557, $255D, $255C, $255B, $2510,
                 $2514, $2534, $252C, $251C, $2500, $253C, $255E, $255F,
                 $255A, $2554, $2569, $2566, $2560, $2550, $256C, $2567,
                 $2568, $2564, $2565, $2559, $2558, $2552, $2553, $256B,
                 $256A, $2518, $250C, $2588, $2584, $258C, $2590, $2580,
                 $0440, $0441, $0442, $0443, $0444, $0445, $0446, $0447,
                 $0448, $0449, $044A, $044B, $044C, $044D, $044E, $044F,
                 $0401, $0451, $0404, $0454, $0407, $0457, $040E, $045E,
                 $00B0, $2219, $00B7, $221A, $2116, $00A4, $25A0, $00A0 );
.............................
  if ch<#128 then
    Utf16Char:=ord(ch)
  else
    Utf16Char:=CP866_Uni[ord(ch)-128];
.............................