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

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] gt; p then inc(k);
    end;
    writeln('количество частей массива, которые больше данного числа',p,' : ',k);
end.