Ребят! Помогите с задачей на Паскаль: Определить, является ли билетсчастливым

{$N+}program P1; varn: longint; i: longint; d: array[1… 6] of longint; function pwr (d: longint; s: integer): longint; vari,q: longint; beginq: =1; for i: =1 to s do q: =q*d; pwr: =q; end; beginwrite ('Nomer (6 znakov): '); read (n); for i: =1 to 6 do begin d[i]: =n div pwr (10,6-i) mod 10; end; if d[1]+d[2]+d[3]=d[4]+d[5]+d[6] then writeln ('HAPPY TICKET! ') else writeln ('NOT HAPPY '); readln; readln; end.