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

var   a: array[1..1000] of real;   i, k, n, z: integer; begin   writeln('Введите число N:');   readln(n);   writeln('Введите число Z:');   readln(z);   writeln('Введите ',n,' действительных чисел (каждое с новой строки):');   for i := 1 to n do   begin     readln(a[i]);     if a[i] > z then     begin       a[i] := z;       k := k + 1;     end;   end;   writeln('Количество замен: ', k); end.