Рекурсивная программа: Заменить все члены последовательности, большие данного Z, заданным числом

var
  A: array[0..255] of real;
  i, t, N: byte;
  Z: real;
  
 ///ПРОЦЕДУРА ЗАМЕНЫ 
procedure Zamena(k: byte);
begin
  if a[k] > Z then //Если a[k] больше Z
  begin 
    a[k] := Z; //то a[k] заменяем на Z
    inc(t) //и увеличиваем количество замененных чисел на 1
  end;
  write(a[k]:4); //выводим a[k]
  if k = N then exit; //если индекс равен N, то выходим
  Zamena(k + 1) //если мы ещё не вышли, то снова вызываем эту процедуру
end; 
 
begin
 { Вводим количество элементов последовательности: }
  write(' N = ');
  readln(N); 
 { Вводим число, с которым будем сравнивать: }
  write(' Z = ');
  readln(Z); 
  writeln;
  writeln('Последовательность ', N, ' случайных чисел: ');
  randomize;
 { Задаем N случайных чисел: } 
  for i := 1 to N do
  begin 
    a[i] := random(i); //случайное число от 0 до i-1
    write(a[i]:4) //выводим его на экран
  end;
  writeln;
  t := 0; //количество замененных чисел (сначала равно 0)
  writeln;
  writeln('Новая последовательность:');
  Zamena(1); //вызываем ПРОЦЕДУРУ замены для 1-го элемента
  writeln;
  writeln;
 { По завершении процедуры выводим 
 количество замененных элементов: }
  write('Количество замен: ', t) 
end.