unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
AlfWinChr: array[ 1 .. 66 ]of integer=
( 192 , 193 , 194 , 195 , 196 , 197 , 168 , 198 , 199 , 200 , 201 , 202 , 203 , 204 , 205 ,
  206 , 207 , 208 , 209 , 210 , 211 , 212 , 213 , 214 , 215 , 216 , 217 , 218 , 219 , 220 ,
  221 , 222 , 223 , 224 , 225 , 226 , 227 , 228 , 229 , 184 , 230 , 231 , 232 , 233 , 234 ,
  235 , 236 , 237 , 238 , 239 , 240 , 241 , 242 , 243 , 244 , 245 , 246 , 247 , 248 , 249 ,
  250 , 251 , 252 , 253 , 254 , 255 );

AlfDOSChr: array[ 1 .. 66 ]of integer=
( 128 , 129 , 130 , 131 , 132 , 133 , 240 , 134 , 135 , 136 , 137 , 138 , 139 , 140 , 141 ,
  142 , 143 , 144 , 145 , 146 , 147 , 148 , 149 , 150 , 151 , 152 , 153 , 154 , 155 , 156 ,
  157 , 158 , 159 , 160 , 161 , 162 , 163 , 164 , 165 , 241 , 166 , 167 , 168 , 169 , 170 ,
  171 , 172 , 173 , 174 , 175 , 224 , 225 , 226 , 227 , 228 , 229 , 230 , 231 , 232 , 233 ,
  234 , 235 , 236 , 237 , 238 , 239 );

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
function DosToWin(st:string):string;

implementation

{$R *.dfm}


function DosToWin(st:string):string;
var
 len,k,kk:longint;
 lit,litout:string[ 1 ];
 Stout:string;
 ordNom:integer;
 Enter:boolean;
 begin
  if st='' then
   begin
    DosToWin:='';
    exit;
   end;
  stout:='';
  len:=Length(st);
  for k:= 1  to len do
   begin
    lit:=Copy(st,k, 1 );
    ordNom:=Ord(lit[ 1 ]);
    Enter:=False;
    for kk:= 1  to  66  do
     begin
      if ordNom=AlfDosChr[kk] then
       begin
        litOut:=chr(AlfWinChr[kk]);
        Enter:=true;
        Break;
       end;
     end;
    if Enter then stout:=stout+litOut else stout:=stout+lit;
   end;
  DosToWin:=stout;
 end;

end.