[TP] polskie znaki a kody ascii

Napisałem taki program, który zwraca kod znaku. Problem pojawia się przy polskich znakach. Mimoże program zwraca niby poprawny kod (zgodnie z tabelą rozszerzonych znaków ascii) ale ich nie wyświetla. Co zrobić aby polskie znaki były wyświetlane?

program jaki_kod_znaku;

uses    crt;
var     normalny,rozszerzony:char;

begin
clrscr;
repeat
        begin
        normalny:=readkey;
        if normalny=chr(0)
                then begin
                rozszerzony:=readkey;
                writeln('znak rozszerzony: ',rozszerzony,' kod znaku: ',ord(rozszerzony));
                end
                else
                writeln('znak: ',normalny,' kod znaku: ',ord(normalny));
        repeat until keypressed;
        clrscr;
        end;
until normalny=chr(27);

end.

Liczę na jakieś wskazówki.

Z programem nic, bo to nie wina programu tylko aktualnie ustawionej strony kodowej konsoli.

Zgaduję, że odpalasz program w konsoli Windows, a nie w DOS, jak powinno być 'prawidłowo' dla TurboPascala.