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

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.