Решить, вообще не шарю в паскале дана таблица целых чисел от a1 до an (n -произвольная). найти количество чисел принадлежащих отрезку x y

 var   
    n,x,y,a,i,k : integer;    
begin   
writeln ('Введите диапозон(два числа):');   
readln (x,y);      

writeln ('укажите длину последовательности');   
readln (n);   
//если n задается в коде то вместо 2 вышеидущих 
//использовать строку -->>   
//n := цифра;

k := 0;    
for i := 1 to n do     
begin     
readln (a);       
if (a>=x) and (a<=y) then       
k := k +1;     
end;   
writeln (k); 
end.