Дан массив из 30 элементов. Найдите среднее арифметическое элементов массива, которые по своему значению меньше 15. (на Паскале)

vara: array [1..30] of integer;i,k,s:integer;f:real;begink:=0; s:=0;for i:=1 to 30 doif a[i]<15 then begin k:=k+1; s:=s+a[i]; end;f:=s/k;write(f);end.