Очень нужна помощь, пожалуйста.В  масиве с k чисел отыскать количестве елементов,

Const
    auto = false;

var
    a: array[1..5000]of integer;
    n, i, k, min: integer;

begin
    if auto then begin
        n := random(100);
        for i := 1 to n do
            a[i] := random(200);
    end
    else begin
        readln(n);
        for i := 1 to n do
            read(a[i]);
    end;
   
    min := a[1];
    for i := 1 to n do
    begin
        if min gt; a[i] then min := a[i];
        if a[i] gt; 10.5 then k := k + 1;
    end;
   
    writeln(min, ' ', k);
end.