Дан массив целых чисел а [10]. найти количество трехзначных чисел, содержащих в себе цифру 7. диапазон элементов от 1 до 1000. если решается написанием программы, то написать лучше в паскале.

Var a, b, x1, x2, x3, c, n, d, i, g :integer;   
s :array [1..10000] of integer;
begin
readln (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. Надеюсь на благодарность и лучший ответ.

Uses crt;
const N=10;
var a:array [1..N] of integer;
    x,k:integer;
begin
     k:=0;
     for x:=1 to 10 do
     begin
          a[x]:=random(1000)+1;
          writeln('a[',x,']:',a[x]);
          if (a[x]>=100) and (a[x]<=999) then
          if (a[x] mod 10=7) or (a[x] div 100=7)
             or (a[x] div 10 mod 10=7) then inc(k);
     end;
     writeln('Количество трехзначных элементов, содержащих цифру 7:',k);
end.