Console Ansi, OEM und Umlaute

[turboPASCAL]

Bin gerade dabei eine Consolen Anwendung zu schreiben. Dabei habe ich festgestellt (mal wieder ) das der Write-Befehl auf die Console nur DOS-OEM-Zeichen ausgibt. Das heist aus "ÜÖÄ üöä ß" wird "▄Í─ ³÷õ ▀".

Geholfen habe ich mir erst einmal mit

Delphi-Quellcode:

function Ansi2OEM(AnsiString: string): string;
begin
  ANSIString := ANSIString + #0;
  CharToOEM(PChar(ANSIString), @ANSIString[1]);
  Delete(ANSIString, Length(ANSIString), 1);
  Result := ANSIString;
end;

//
Writeln(Ansi2OEM('Hallöle !'));

welche die Ausgaben der Umlaute auch auf der Console lesbar macht.

Gibt es eine Möglichkeit die Ausgaben auf die Console auf Ansi umzustellen ?