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

Формулировка задачи:

Дан одномерный массив.Все нулевые элементы заменить на максимальный элемент массива

Решение задачи: «Все нулевые элементы заменить на максимальный элемент массива»

Листинг программы

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.

Объяснение кода листинга программы

Программа запрашивает у пользователя количество элементов массива и сохраняет его в переменной k.
Затем программа запрашивает у пользователя ввод элементов массива и сохраняет их в массиве x.
Переменная max инициализируется значением 0 и используется для хранения максимального элемента массива.
Программа проходит по всем элементам массива и если текущий элемент больше максимального, то обновляет значение переменной max.
Затем программа проходит по всем элементам массива и если элемент равен 0, то заменяет его на максимальное значение из переменной max.
В конце программа выводит все элементы массива.