найдите количество элементов массива, которые больше заданного числа а, вводимого с клавиатуры

program picaso; uses crt;

type vector=array[1 ... 100] of integer;

var a:vector;

i, n, k, p:byte;

begin clrscr; Randomize;

writeln ('n:') ; readln (n) ;

writeln ('a:') ; readln (p) ;

for i:=1 to n do

begin

write ('элемент ', i,' : ') ;

readln (a[i]) ;

end;

for i:=1 to n do

write (a[i],' ') ;

k:=0;

for i:=1 to n do

begin

if a[i] > p then inc (k) ;

end;

writeln ('количество элементов массива, которые больше заданного числа', p,' : ', k) ;

end.