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

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