Thanks, but how do you assign Text in SetTextCodePage ?
Bart's code should be sufficient.
SetTextCodePage sets the code page for a file that is passed by reference as the first parameter. Here, it is the virtual file "Output", i.e. the standard output to the terminal window. So, subsequent calls to
write or
writeln should use the specified code page.