дан массив целых чисел. найти количество тех элементов значение которых положительны и не превосходят число 7. написать программу для паскаля

Торопышка=)))

const n=10;var a:array[1..n] of integer;k,i:integer;beginwriteln('vvedite massiv=');for i:=1 to n doread(a[i]);k:=0;For i:=1 to n doif (a[i]>0) and (a[i]<7) then inc(k);writeln('k=',k);readln;end.

забыла строчку For i:=1 to n do

:(

const n=10;var a:array[1..n] of integer;k,i;integer;beginwriteln('vvedite massiv=');for i;=1 to n doreadln(a[i]);k:=0;if (a[i]>0) and (a[i]<7) then inc(k);writeln('k=',k);readln;end.