Tildes.

[bit]

Saludos.

Adjunto código del programa:

program numero;
var
n:integer;

begin
writeln('Programa creado por Bit.');
write('Ingrese número entero positivo:');
readln(n);
while (n<=-1) do
begin
  writeln('Por favor, usted debe ingresar un número entero positivo:');
  readln(n);
  end;
writeln('Correcto,El número ingresado es un entero positivo');
readln;
end.

Al ejecutar el programa, no muestra los tildes correctamente.
Si por ejemplo uso el ° (Lo muestra incorrectamente en pantalla)
Utilizo free pascal, lazarus. Con el sistema operativo Windows.
¿Qué modificación le harías al código?