счастливые билеты, ошибка

[morgan97]

задача такая:Требуется вычислить количество N - значных счастливых билетов. Напомним, что билет называется счастливым, если сумма первой половины его цифр равна сумме другой его половины. Например, билет 564159 счастливый, т.к. 5+6+4=1+5+9.

Но программа постоянно недосчитывает, помогите найти ошибку

var
i,j,k,l,n,od,kn,sum1,sum,chet,dl,m,e:longint;
q:integer;
x,z,c:string;
begin
  chet:=0;
  readln(n);
  x:='1';
  z:='';
  for i:=1 to n-1 do begin
    x:=x+'0';
    z:=z+'9';
  end;
  z:=z+'9';
  val(x,od,q);
  val(z,kn,q);
  z:=''; x:='';
  for i:=od to kn do begin
    dl:=0;
    x:='';
    sum:=0;
    sum1:=0;
    str(i,x);
    dl:=length(x) div 2;
    for j:=1 to dl do begin
      val(x[j],l,q);
      sum:=l+sum;
      l:=0;
    end;
    dl:=dl+1;
    for m:=dl to length(x) do  begin
      val(x[m],e,q);
      sum1:=e+sum1;
      e:=0;
    end;
    if sum=sum1 then chet:=chet+1;
  end;
  writeln(chet);
end.

[Step_UA]

у вас при нечетных значениях, левая часть билета состоит из меньшего количества цифр чем правая.
... ну и со строками - это изобретение велосипеда