Задачка в Pascal: ввести целое число и определить, верно ли…

Program gt; var n,q,a1,a2,a3,a4,a5,a6,a7,a8,a9,a0: integer; beginread (n); a0: =0; a1: =0; a2: =0; a3: =0; a4: =0; a5: =0; a6: =0; a7: =0; a8: =0; a9: =0; while n>0 dobeginq: =n mod 10; n: =n div 10; if (q=0) then a0: =a0+1; if (q=1) then a1: =a1+1; *if (q=9) then a9: =a9+1; end; if (a0>1) or (a1>1) or… . (a9>1) then writeln ('yes') else writeln ('no'); end. Буз массива как-то так получиться