program Project2;
{$APPTYPE CONSOLE}

const
  //Длина массива
  N = 10;

var
  //Массив
  a: array [1..N] of integer;
  //i - для цикла For, count - кол-во замен
  i, z, count: integer;

begin
  //Получаем число z
  Write('Введите z: ');
  ReadLn(z);
  //Заполняем и выводим массив
  Write('Исходный массив со случаными числами: ');
  randomize;
  for i := 1 to N do
    begin
      a[i] := random(10);
      write(a[i], ' ');
    end;
  //Обнуляем кол-во замен
  count := 0;
  //Перебираем массив
  for i := 1 to N do
    //Если текущий элемент больше z, то...
    if a[i] > Z then
      begin
        //...заменяем его на z...
        a[i] := Z;
        //...и увеличиваем счетчик замен
        inc(count);
      end;
  //Выводим результаты
  WriteLn;
  WriteLn('Кол-во замен: ', count);
  Write('Обработанный массив: ');
  for i := 1 to N do
    write(a[i], ' ');
  ReadLn;
end.