в массиве А[1…N] из целых чисел, найти среднее арифметическое элементов, что не меньше 5го элемента массива — Pascal(Паскаль)

var
a:array [1..10] of integer;
i,kol,n,s:integer;
begin
n:=10;
for i:=1 to 10 do
begin
    a[i]:=random(20);
    write(' ',a[i]);
end;
writeln();
Kol:=0; S:=0;{Ставим счётчик на 0}
 
for i:=1 to n do {в цикле от 1го элемента до Энного проверяем условие}
    if a[i]>a[5] then  
    begin {если а(итое)больше 5го елемента, то}
        s:=s+a[i];{суммируем элементы}   
        kol:=kol+1;{считаем кол-во суммируемых эдементов}
       
    end;
writeln('srednee: ',s/kol){делим сумму чисел на их кол-во};
end.