Скачать Конвертор Win to DOS

program win2dos;
        var
           infile, outfile: text;
           Insymbol, Outsymbol: char;
           Innumber, Outnumber: word;
        begin
        if paramstr(1) = '' then
        begin
             writeln('не задано имя для конвертации');
             Halt
        end;
        if paramstr(2) = '' then
        begin
             writeln('не задано результирующее имя для конвертации');
             Halt
        end;
        assign(infile, paramstr(1)); reset(infile);
        assign(outfile,paramstr(2)); rewrite(outfile);
        while not eof(infile) do
        begin
             read(infile, insymbol);
             innumber:=ord(insymbol);
             if innumber in [192..255] then
                if innumber in [192..239] then
                   outnumber := innumber-64
                else outnumber := innumber-16
             else outnumber := innumber;
             if innumber = 133 then innumber := 168;
             if innumber = 165 then innumber := 184;
        outsymbol:=chr(outnumber);
        write(outfile,outsymbol);
        end;
        close(infile);
        close(outfile);
        end.