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

Uses crt;
 Var n,i,k,summ:integer;
     sr:real;
     m:array [1..100] of integer;
begin
clrscr;
 Writeln ('Vvedite kol-vo chisel ');
 Readln (n);
 For i:=1 to n do begin
                  writeln ('vvedite ',i,' chislo ');
                  Readln (m[i]);
                  end;
writeln (' Polycheny chisla ');
 For i:=1 to n do
               write (m[i]:4);
for i:=1 to n do
   if m[i]>0 then begin
                  m[i]:=sin(i)*cos(i);
                  summ:=summ+m[i];
                  k:=k+1;
                  Sr:=summ/k;
                  end;
Writeln;
Writeln ('Sr = ',sr:4:2);
Readln
end.

var
  M: array[0..99] of  extended;
  i: integer;
  sr_arifm,tmp: extended;
 
begin
  i:=0;
repeat
  tmp:=sin(i)*cos(i); 
  M[i]:=tmp;
  inc(i);
until i=99;
 
 
i:=0;
repeat
  if M[i]<>0
  then
   begin
     sr_arifm:=round(sr_arifm)+M[i];
     inc(i);
   end
 else
  inc(i);
until i=99;
 
 sr_arifm:=sr_arifm/100;