Составить программу на языке Паскаль, подсчитывающую общее количество "счастливых" билетов (таких, у которых сумма

Задача подсчитать количество счастливых билетов на Паскале сводится к перебору всех вариантов первой половины со всеми вариантами второй половины. При переборе необходимо лишь сравнивать суммы цифр каждой из половин, и в случае совпадения увеличивать счетчик.

{задача счастливый билет}
program ex55;
Uses Crt;
var
i, j: integer;
k: longint;
BEGIN
ClrScr;
k:=0; {k - количество "счастливых" билетов}
for i:=1 to 999 do
for j:=1 to 999 do
begin
if ((i mod 10)+((i div 10) mod 10)+(i div 100))=((j mod 10)+((j div 10) mod 10)+(j div 100)) then inc(k);
end;
writeln('Результат = ', k);

ReadLn;
END.