счастливый билет

var  
   N : integer; 
   i, Perenos : integer; 
   A : array[1..200] of integer; 
   Sum1, Sum2 : Longint; 
   Count : Longint; 
   Flag_Continue : boolean; 
begin 
   WriteLn('Введите число знаков N :'); Readln(N); 
 
 
   for i:=1 to 2*N do A[i] := 0; 
 
   Count := 0; 
   Flag_Continue := true; 
   while Flag_Continue do begin 
     Sum1 := 0; 
     for i:=1 to N do Sum1 := Sum1 + A[i]; 
     Sum2 := 0; 
     for i:=1 to N do Sum2 := Sum2 + A[i+N]; 
 
     
     if Sum1 = Sum2 then Count := Count + 1; 
 
     
     Perenos := 1; 
     for i:=2*N downto 1 do begin 
       A[i] := A[i] + Perenos; 
       Perenos := A[i] div 10; 
       if Perenos<>0 then 
          A[i] := A[i] mod 10 
       else break; 
     end; 
 
     Flag_Continue := false; 
     for i:=1 to 2*N do 
       if A[i]<>9 then Flag_Continue := true; 
   end; 
 
   WriteLn('Всего "счастливых" билетиков: ',Count:1); 
end.

uses crt;
{функция подсчета цифр в числе}
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;
var n,i,t,max,res:longint;
    a: array[0..100] of integer;{массив количеств получения каждой суммы}
begin
clrscr;
write('Введите половину количества цифр n=');
readln(n);
max:=1; {определим максимальное число для разряда n(99,999,9999...)}
for i:=1 to n do
max:=max*10;
max:=max-1;
for i:=0 to max do{от 0 до макс.}
inc(a[sum(i)]);{считаем сумму цифр
                и увеличиваем на 1 ячейку с номером этой суммы}
for i:=0 to 9*n do {от 0 до максимальной суммы цифр}
res:=res+a[i]*a[i];{возводим в квадрат количество способов и суммируем}
writeln;
writeln(res);
readln
end.