Паскаль Для массива из 10 элементов найти среднее арифметическое тех элементов зн??чение которых меньше 15

Var a:array [1..10] of integer;i,k,s:integer;beginfor i:=1 to 10 doread(a[i]); //ввод значений массива с клавиатурыwriteln;for i:=1 to 10 doif a[i]<15 then begink:=k+1;s:=s+a[i];end;writeln(s/k:0:2) //вывод ср.арифм. с округлением до 2 знаков после запятойend.