Вычислить среднее арифметическое положительных элементов массива

 var a:array[1..10] of integer; i,k,s:integer; begin  s:=0;   k:=0; for i:=1 to 10 do  readln(a[i]); for i:=1 to 10 do  if a[i]>0 then  begin  s:=s+a[i];  k:=k+1;  end; writeln(s/k); end.