Написать функцию на паскаль.

Question

функция перекодирования строки которая задана кодированием в DOS в кодирование Windows (перекодировать нужно только символы кирилицы)

Анатолий Кузин · Accepted Answer

можно так 
function DosToWin(Str: String): String; 
var 
 I: Integer; 
 StrTmp: String; 
begin 
 StrTmp := ''; 
 for I := 1 to Length(Str) do 
 case Ord(Str) of 
 128..175: StrTmp := StrTmp + Chr(Ord(Str) + 64); //от А до п 
 224..239: StrTmp := StrTmp + Chr(Ord(Str) + 16); //от р до я 
 242: StrTmp := StrTmp + 'Є'; 
 243: StrTmp := StrTmp + 'є'; 
 244: StrTmp := StrTmp + 'Ї'; 
 245: StrTmp := StrTmp + 'ї'; 
 else StrTmp := StrTmp + Str; //другие символы 
 end; 
 Result := StrTmp; 
end; 
 
function WinToDos(Str: String): String; 
var 
 I: Integer; 
 StrTmp: String; 
begin 
 StrTmp := ''; 
 for I := 1 to Length(Str) do 
 case Ord(Str) of 
 192..239: StrTmp := StrTmp + Chr(Ord(Str) - 64); //от А до п 
 240..255: StrTmp := StrTmp + Chr(Ord(Str) - 16); //от р до я 
 170: StrTmp := StrTmp + #242; //'Є'; 
 186: StrTmp := StrTmp + #243; //'є'; 
 175: StrTmp := StrTmp + #244; //'Ї'; 
 191: StrTmp := StrTmp + #245; //'ї'; 
 else StrTmp := StrTmp + Str; //другие символы 
 end; 
 Result := StrTmp; 
end;