в одномерном массиве найти количество элементов ,значение которых больше 6, но меньше 10

uses crt;vara:array [1..20] of integer;i,c:integer;beginclrscr;c:=0;randomize();for i:=1 to 20 dobegina[i]:=random(20);write(a[i], ' ');if (a[i]>6) and (a[i]<10) then c:=c+1;end;writeln();writeln('Kolichestvo chisel: ',c);readln();end.

program xxx;

const n=30;

var   a : array [1..n] of integer;   i, k : integer;begin

   readln(n);

   k:=0;   for i:=1 to n do     begin

       write('a[',i,']=');

       readln (a[i]);

       if (a[i]>6) and (a[i]<10) then k:=k+1;     end;

   for i:=1 to n do       write(a[i], ' ');

   writeln();   writeln('Количество чисел=',k);   readln();end.