Найти в одномерном массиве из 10 элементов среднее арифметическое всех ненулевых чисел. Паскаль.

var a: array[1..10] of Integer;i,n,x: Integer;beginfor i:=1 to 10 do readln(a[i]);for i:=1 to 10 do beginif a[i]<>0 then begininc(x, a[i]);inc(n);end;end;writeln(x/n);end.