Напишите, программу,паскаль,тема массивы. дан массив от 1 до 10 значений вводимых с клавиатуры,посчитать количество элементов,которые меньше величины t

Program n1;
const n=10;
var a: array[1..n] of integer;
t,k,i: integer;
begin
k:=0;
readln(t);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<t then k:=k+1;
end;
write(k);
end.