пользователь вводит массив из n чисел, посчитать количество чисел больших 2. delphi

for n:=1 to 10 do begin write('Введите число ',n);Readln(mass[n]);end;
for n:=1 to 10 do if mass[n]>2 then col:=col+1;
Writeln('Цифр больше 2 в масиве ',col );
end.

Как описать массив и переменные думаю в курсе