Коды чисел - PascalABC.NET

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

Пожалуйста, помогите с программным кодом для решения задачи Используя коды чисел, решите задачу о проверке «счастливого» билета. Номер билета вводится с клавиатуры и состоит из четного числа цифр (число цифр неизвестно), если сумма цифр первой половины номера равна сумме оставшихся цифр номера, то этот билет считается «счастливым»

Решение задачи: «Коды чисел»

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

k:=length(s) div 2;
s1:=0;
s2:=0;
for i:=1 to lk do
 begin
  s1:=s1+ord(s[i]-48);
  s2:=s2+ord(s[i+k]-48);
 end;

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

Введенная переменная s содержит строку, представляющую собой двузначное число.
Переменная k инициализируется значением длины строки s, деленной на 2.
Переменные s1 и s2 инициализируются нулевыми значениями.
Используя цикл for, проходящий от 1 до k, выполняются следующие действия: а) значение элемента строки s с индексом i прибавляется к переменной s1; б) значение элемента строки s с индексом i+k прибавляется к переменной s2.
В результате выполнения цикла, в переменной s1 будет содержаться сумма цифр числа, записанного в строке s, а в переменной s2 - разность цифр этого числа.