пожалуйста помогите!!!
написать программу для подсчета количества счастливых билетов выданных и оставшихся если ваш билет под № n

function isLucky(a: integer): boolean;var s: string;begin      str(a, s);      while length(s) < 6 do s := '0' + s;      isLucky := ord(s[1]) + ord(s[2]) + ord(s[3]) = ord(s[4]) + ord(s[5]) + ord(s[6])end;var     sTicket: string;        iTicket, i, err, sum: longint;begin      write('Введите Ваш номер билета: ');      read(sTicket);      val(sTicket, iTicket, err);      for i := 1 to iTicket do            if isLucky(i) then inc(sum);      writeln('Выдано ', sum, ' счастливых билетов');      writeln('Осталось выдать ', 55251 - sum, ' счастливых билетов')end.