Вычислить среднее арифметическое положительных элементов массива F(M) — Pascal(Паскаль)

uses crt;
type z= array[1..100] of integer;
var kil,sum,i,n: integer; z1:z; S_ar:real;
begin clrscr; randomize;
writeln('Vvedit rozmirnist masuvu');
readln(n);
for i:=1 to n do
   begin
      z1[i]:=random(10)-5;
      write(z1[i],' ');
   end;
writeln;
kil:=0;sum:=0;
for i:=1 to n do
if z1[i]>0 then
   begin
      sum:=sum+z1[i];
      kil:=kil+1;
   end;
begin
   if kil<>0 then
      begin
         S_ar:=sum/kil;
         writeln('Seredne arifmetuchne=',S_ar);
      end
   else
      writeln('V masuvi nema dodatnih elementiv');
end;
readln
end.