Все нулевые элементы массива заменить на среднее значение положительных элементов

uses crt;
var
   x:array[1..100] of integer;
   s,k,k1,n,i:integer;
begin
clrscr;
write('Введите количество элементов=');
readln(n);
writeln('Исходный массив');
randomize;
for i:=1 to n do
 begin
  x[i]:=random(51)-10;
  write(x[i]:3);
  if (x[i]=0) then inc(k);
  if (x[i]>0) then
   begin
    s:=s+x[i];
    inc(k1);
   end;
 end;
writeln;
if (k=0) then write('Нулевых элементов нет!') else
 begin
  for i:=1 to n do
   if (x[i]=0) then x[i]:=round(s/k1);
  writeln('Новый массив');
  for i:=1 to n do
   write(x[i]:3);
 end;
readln
end.

uses crt;
var
   x:array[1..100] of integer;
   max,i,n:integer;
begin
clrscr;
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ=');
readln(n);
writeln('Èñõîäíûé ìàññèâ');
randomize;
for i:=1 to n do
 begin
  x[i]:=random(101)-50;
  write(x[i]:3);
  if (x[i]>=max) then max:=x[i];
 end;
writeln;
writeln('Íîâûé ìàññèâ');
for i:=1 to n do
 begin
  if (abs(x[i])=max) and (x[i]<>max) then x[i]:=1;
  if (x[i]<>max) and (abs(x[i])<>max) then x[i]:=0;
  write(x[i]:3);
 end;
readln
end.