преобразование текстового файла из русской кодировки Dos

procedure MyRewriteProc;
const
  BUF_SZ = 4096;
var
  dosFile: file;
  winFile: file;
  uniFile: file;
 
  dosBuf: array [0..BUF_SZ - 1] of Char;
  winBuf: array [0..BUF_SZ - 1] of Char;
  uniBuf: array [0..BUF_SZ - 1] of WideChar;
 
  rCnt: Integer;
  wCnt: Integer;
begin
  AssignFile(dosFile, 'dos.txt');
  Reset(dosFile, 1);
 
  AssignFile(winFile, 'win.txt');
  ReWrite(winFile, 1);
 
  AssignFile(uniFile, 'uni.txt');
  ReWrite(uniFile, 1);
 
  BlockRead(dosFile, dosBuf, BUF_SZ, rCnt);
 
  OemToCharBuff(dosBuf, winBuf, rCnt);     // ASCII (DOS) -> ANSI (Win)
  BlockWrite(winFile, winBuf, rCnt, wCnt); // запись в ANSI (Win)-кодировке
 
  MultiByteToWideChar(CP_ACP,     // кодовая страница CP_OEMCP=OEM code page(для DOS->WinUni), CP_ACP=ANSI code page (для DOS->DosUni)
                      0,            // параметры
                      dosBuf,       // исходная строка
                      rCnt,       // и ее длина
                      uniBuf,       // unicode-буфер
                      BUF_SZ);    // и его размер
 
  BlockWrite(uniFile, uniBuf, rCnt * 2, wCnt); // запись в unicode
 
  CloseFile(uniFile);
  CloseFile(winFile);
  CloseFile(dosFile);
 
end;