Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел - Turbo Pascal

var
  a: array[1..10] of integer;
  i,sum,count: integer;
  average: real;
begin
  writeln('Введите элементы массива (10 целых чисел) в одной строке и нажмите<Enter>');
  write('->');
    for i:=1 to 10 do read(a[i]);
 
  sum:=0;
  count:=0;
    for i:=1 to 10 do
    begin
      sum:=sum+a[i];
        if a[i]<>0 then count:=count+1;
    end;
 
  writeln('Сумма элементов массива = ',sum);
  writeln('Количество ненулевых элементов = ',count);
  writeln('Среднее арифметическое ненулевых элементов = ',sum,'/',count,' = ',(sum/count):0:2);
  readln;
end.