В данной программе пишет само число, а не коды цифр. Например, при вводе 5 получается как во вложении. То есть пишется 5, а отображается 5-ый символ по какой-то из кодировок.
В простейших случаях, для олимпиадных задач, например, можно сделать так
assign (input, 'a'); reset (input);
assign (output, 'b'); rewrite (output);
Это перенаправит стандартный ввод-вывод в эти файлы.