На паскале нужно сделать. с клавиатуры вводится 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 do read (a[i]); k:=0; for i:=1 to 10 do begin if (a[i]>10) and (a[i]<30) then k:=k+1; end; writeln ('Количество чисел в диапазоне (10;30) =',k); Readln; readkey; end.