На паскале нужно сделать. с клавиатуры вводится n элементов массива целых чисел вывести количество чисел которые попадаются в диапозоне от 10 до 30

Program p1;Uses crt;Var A: array [1..10] of integer;i,k: integer;Begin clrscr;Writeln ('Введите элементы массива');for i:=1 to 10 doread (a[i]);k:=0;for i:=1 to 10 dobeginif (a[i]>10) and (a[i]<30) thenk:=k+1;end;writeln ('Количество чисел в диапазоне (10;30) =',k);Readln;readkey;end.