Дан массив целых чисел А [10]

Var a, b, x1, x2, x3, c, n, d, i, g: integer; s: array [1… 10000] of integer; beginreadln (n); for i: =1 to n do begin readln (s[i]); a: =s[i]; if (a>99) and (a<1000) then begin x1: =a div 100; x2: =a div 10 mod 10; x3: =a mod 10; if (x1=7) or (x2=7) or (x3=7) then inc (c); end end; writeln (c); end.P.S. Надеюсь на благодарность и лучший ответ.