С клавиатуры вводится 10 чисел.Определить среднее арифметтческое всех чисел,которые больше первого. (Паскаль)

var

   i,n, pol: integer;  //pol - количество положительных чисел, n - количество всех чисел

   a,s: real;  //a- вводимое число, s - сумма положительных чисел

begin

 pol:= 0;  //обнуляем счетчик

 s:= 0;  

 writeln('Введите количество чисел');

 readln(n);

 for i:= 1 to n do

 begin

   writeln('Введите число');

   readln(a);

   if a > 0 then

   begin

     s:= s + a;

     pol:= pol + 1;  

   end;

 end;

 writeln('Среднее арифметическое положительных чисел:  ', s / pol);  {среднее арифметическое равно сумме чисел делить на их количество}

end.