Сколько цифр нужно исправить, чтобы исправленное число совпадало обращенным к заданному числу? - PascalABC.NET

Формулировка задачи:

Составьте программу, определяющую, какое минимальное количество цифр числа H надо исправить, чтобы исправленное число совпадало обращенным к заданному числу M.

Решение задачи: «Сколько цифр нужно исправить, чтобы исправленное число совпадало обращенным к заданному числу?»

Листинг программы

var m:integer;
    s:string;
    n,i,k:byte;
begin
write('m=');
readln(m);
s:=inttostr(m);
n:=length(s);
k:=0;
for i:=1 to n div 2 do
if s[i]<>s[n-i+1] then inc(k);
write('k=',k)
end.

Объяснение кода листинга программы

Объявлены три переменные типа integer: m, n, k.
Четвёртая переменная типа string: s.
Введенное с клавиатуры значение переменной m преобразуется в строку и сохраняется в переменной s.
Определяется длина строки s, которая сохраняется в переменной n.
Переменная k инициализируется нулём.
В цикле от 1 до n/2 происходит сравнение символов попарно: если символ s[i] не равен символу s[n-i+1], то переменная k увеличивается на единицу.
Выводится значение переменной k.