консоль и текст Опции

[Client]

Написать программу (консольное приложение), которая запрашивает у пользователя вес в фунтах, пересчитывает его в килограммы и выводит результат на экран. Для вывода сообщений использовать функцию RUS, которая преобразует строку символов в кодировке ANSI в строку в кодировке ASCII. (функцию создать самостоятельно).
Интересует вторая часть условия. Используется консоль в дельфи или паскаль.
Как задать строку на русском языке, чтоб при выводе она отобразилась корректно?

[volvo]

Дельфи 2007 и выше:

  function WinToDos(const S: string): AnsiString;
  begin
    setLength(result, length(S));
    if not CharToOem(pWideChar(S), pAnsiChar(result)) then
      setLength(result, 0)
  end;

Дельфи 2006 и ниже:

  function WinToDos(const S: string): string;
  begin
    setLength(result, length(S));
    if not CharToOem(pChar(S), pChar(result)) then
      setLength(result, 0)
  end;

Попробуй запустить вот такое простейшее консольное приложение:

var s: string;
begin
  s := 'Привет, мир!';
  writeln(WinToDos(s));
  readln;
end.