пожалуйста помогите решить, вообще не шарю в паскале
Дана таблица целых чисел от 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.