Найти количество счастливых в тираже билетов

uses crt;
var i,kol:longint;
function Sch(n:longint):boolean;
var a,b,c,d,e,f:byte;
begin
Sch:=true;
a:=n div 100000;
b:=n div 10000 mod 10;
c:=n div 1000 mod 10;
d:=n div 100 mod 10;
e:=n div 10 mod 10;
f:=n mod 10;
if a+b+c<>d+e+f then Sch:=false;
end;
begin
clrscr;
for i:=0 to 999999 do
if Sch(i)then
kol:=kol+1;
writeln('kol=',kol);
readln
end.

uses crt;
var
a,i,b: integer;
z: real;
s: text;
begin
repeat
write('Начать генерацию счастливых номеров от 100000 до b (100000 < b < 900000): ');
read(b);
until (b>100000) and (b<1000000);
writeln('Идет генерация счастливых номеров! Ждите...');
assign(s, 'C:\s.txt');
rewrite(s);
for a:=100000 to b do begin
if (a div 100000)+(a div 10000 mod 10)+(a div 1000 mod 10)=(a mod 1000 div 100)+(a mod 100 div 10)+(a mod 10) then begin
writeln(s, a);
inc(i);
end;
end;
writeln('Счастливые номера сгенерированы! Откройте файл s.txt на диске C:\');
close(s);
writeln('Всего счастливых номеров: ',i,'!');
z:=(i/(b-100000))*100;
write('Вероятность получить счастливый билет: ',z:0:3,' %');
end.

uses crt;
var 
i, t: integer;
res:longint;
a: array[0..27] of integer;
function sum(n:integer):integer;
var x:integer;
begin
x:=0;
while(n>0)do
begin
x:=x+n mod 10;
n:=n div 10;
end;
sum:=x;
end;
begin
clrscr;
for i:=0 to 999 do
begin
t:=sum(i);
inc(a[t]);
end;
for i:=0 to 27 do
res:=res+a[i]*a[i];
writeln(res); 
readln
end.