Найти все 4-х значные числа, в которых сумма первых 2-х цифр равна сумме двух последних - Pascal ABC

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

Найти все 4-х значные числа в которых сумма первых 2-х цифр числа равна сумме третьей и четвертой цифр этого числа...

procedure summa(kol:longint;var sum:byte);
begin
  sum:=0;
  while kol>0 do
  begin
    sum:=sum+kol mod 10;
    kol:=kol div 10;
  end;
  writeln('Г±ГіГ¬Г¬Г* Г°Г*ГўГ*Г* ',sum);
end;
var
chislo:longint;
sum:byte;
begin
  write('ГўГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г® ');readln(chislo);
  summa(chislo,sum);
  readln;
end.

Сумму я нашла как найти....а как дальше ненаю

Решение задачи: «Найти все 4-х значные числа, в которых сумма первых 2-х цифр равна сумме двух последних»

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

Uses
 crt;
 
var
 i,kol:integer;
 
begin
ClrScr;
kol:=0;
for i:=1000 to 9999 do
if ((i div 1000)+(i mod 1000 div 100)=((i mod 100) div 10)+(i mod 10)) then
begin
 inc(kol);
 if (kol=400) then
 begin
  readkey;
  clrscr;
 end;
write(i:5);
end;
readln
end.

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

В этом коде используется язык программирования Pascal ABC.
Задача состоит в поиске всех четырехзначных чисел, в которых сумма первых двух цифр равна сумме двух последних.
Переменная i используется как счетчик для перебора чисел от 1000 до 9999.
Переменная kol используется для подсчета количества найденных чисел.
Условие if проверяет, удовлетворяет ли число условию задачи.
Если число удовлетворяет условию, то к переменной kol прибавляется единица.
Если количество найденных чисел равно 400, то программа запрашивает нажатие клавиши, чтобы пользователь мог увидеть результаты.
Число выводится на экран с помощью функции write.
В конце программы программа запрашивает ввод с помощью функции readln.