Заменить положительные элементы массива

program ggg;
const
nmax=60;
var
m:array[1..nmax] of real;
i,n,k:byte;
s,p:real;
begin
writeln('vvedite razmer');
readln(n);
for i:=1 to n do
begin
write('m[',i,']=');
readln(m[i]);
end;
s:=0;k:=0;
for i:=1 to n do
begin
if m[i]<0 then
s:=s+m[i];
k:=k+1;
p:=s/k;
end;
for i:=1 to n do
if m[i]>0 then m[i]:=p;
for i:=1 to n do
writeln('m[',i,']=',m:7);
readln;
end.

const nmax=60;
var m:array[1..nmax] of integer;
    i,n,k,s,p:integer;
begin
randomize;
repeat
writeln('vvedite razmer');
readln(n);
until n<=nmax;
for i:=1 to n do
begin
    m[i]:=random(16)-5;
    write(m[i]:4);
end;
writeln;
s:=0; k:=0;
for i:=1 to n do
if m[i]<0 then
begin
    s:=s+m[i]; inc(k);
end;
p:=round(s/k);
for i:=1 to n do if m[i]>0 then m[i]:=p;
writeln('Результат:');
for i:=1 to n do write(m[i]:4);
end.

p:=s/k