Решите мне задачку на динамический массив!

[vfrcbvrf23]

Дана последовательность действительных чисел . Заменить все ее члены, большие данного числа Z, этим числом. Подсчитать количество замен.

[somewhere]

Код: Выделить всё

count := 0;
if length(arr) > 0 then for x := 0 to length(arr)-1 do if arr[x] > Z then begin; arr[x] := Z; inc(count); end;