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

program qq;
 
type
mas = array[1..10] of integer;
 
var
m : mas;
sr, count : integer;
 
begin
sr := 0;
count := 0;
for i:=1 to 10 do
     begin
          Write('Введите число: ');
          ReadLn(m[i]);
     end;
for i:=1 to 10 do
          if m[i] > 0 then 
               begin
                    count := count + 1;
                    sr := sr + m[i];
               end;
WriteLn('Среднее арифметическое: ', sr / count);
end.

for i:=1 to 10 do
          if m[i] > 0 then 
               begin
                    count := count + 1;
                    sr := sr + m[i];
               end;

sr:=sr/count;
for i:=1 to 10 do
     sr := sr * m[i];
WriteLn('Среднее арифметическое, умноженное на все элементы: ', sr);

sr:=sr/count;
WriteLn('Среднее арифметическое: ', sr);
WriteLn('Элементы массива, умноженные на среднее арифметическое:');
for i:=1 to 10 do
     begin
          m[i] := sr * m[i];
          write(m[i], ' ')
     end;

writeln('Исходный массив:');
for i:=1 to 10 do
          if m[i] > 0 then 
               begin
                    write(m[i], ' ');
                    count := count + 1;
                    sr := sr + m[i];
               end;
writeln;