Все нулевые элементы заменить на максимальный элемент массива

program NilElInArr;
uses crt;
const N =10000;
var i, k, max:integer;
    x:array [1..N] of integer;
begin
  clrscr;
  max:=0;
  writeln('Введите количество элементов массива');
  readln(k);
  clrscr;
  writeln('Введите массив');
  for i:=1 to k do
  begin
    readln(x[i]);
    if x[i]>max then
      max:=x[i];
  end;
  clrscr;
  for i:=1 to k do
  begin
    if x[i]<>0 then
      writeln(x[i])
    else
      writeln(max);
  end;
end.

program NilElInArr2;
uses crt;
const N =10000;
var i, k, max:integer;
    x:array [1..N] of integer;
begin
  clrscr;
  max:=0;
  writeln('Введите количество элементов массива');
  readln(k);
  clrscr;
  writeln('Введите массив');
  for i:=1 to k do
  begin
    readln(x[i]);
    if x[i]>max then
      max:=x[i];
  end;
  clrscr;
  for i:=1 to k do
    if x[i]=0 then
      x[i]:=max;
  for i:=1 to k do
    writeln(x[i]);
end.