{* Конвертор Текстовых Файлов из Unix в DOS *}

Unit UNIX2DOS;
Interface
Implementation
Begin
 writeln('Конвертор Текстовых Файлов из Unix в DOS');
End.

Program Unix2DOS;

Uses Unix2DOS.pas; {* Эту строку можно удалить *}
{ Unix To DOS text files convertor // code by VanDamM // Baai - card '00 }
Var {* Необходимые переменные *}
  UF : text;
  DF : text;
  Ch : Char;
Begin
  If ParamCount = 0 Then
  Begin
    Writeln('Usage: U2D.EXE  ');
    Halt;
  End;
  Assign(UF, ParamStr(1)); {* Привязка переменной UF к файлу ParamStr(1 *}
  Reset(UF); {* Подготовка переменной UF для чтения из файла *}
  Assign(DF, ParamStr(2)); {* Подключение к файлу ParamStr(2 через переменную DF *}
  ReWrite(DF); {* Открытие файла для записи *}
  While Not EOF(UF) Do {* Пока не конец файла *}
  Begin
    Read(UF, Ch);
    If Ch = '_' Then
    Begin
      Read(UF, Ch);
      If Ch  Chr($08) Then
        Write(DF, Ch)
      Else Begin
        Read(UF, Ch);
      Write(DF, Ch);
    End;
    
  End;
  Else If Ch  Chr($08) Then
    Write(DF, Ch)
  Else Begin
    Read(UF, Ch);
  If Ch = Chr($0A) Then
    Write(DF, Ch);
End;

  End;
  Close(UF); {* Закрытие файла *}
  Close(DF); {* Файл DF будет закрыт *}
  End......