24 - ПОИСК ОШИБОК В ПРОГРАММЕ СО СЛОЖНЫМ УСЛОВИЕМ

Решение задач:

Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 109, и выводится максимальная цифра этого числа. Программист торопился и написал программу неправильно.

var N: longint;
digit, max_digit: integer;
begin
readln(N);
max_digit := 9;
while N >= 10 do
begin
digit := N mod 10;
if digit > max_digit then
max_digit := digit;
N := N div 10;
end;
writeln(max_digit);
end.

Последовательно выполните следующее.
1. Напишите, что выведет эта программа при вводе числа 423.
2. Найдите все ошибки в этой программе (их может быть одна или несколько). Для каждой ошибки:
1) выпишите строку, в которой сделана ошибка;
2) укажите, как исправить ошибку, – приведите правильный вариант строки.
Обратите внимание, что требуется найти ошибки в имеющейся программе, а не написать свою, возможно, использующую другой алгоритм решения.
Исправление ошибки должно затрагивать только строку, в которой находится ошибка.