Дана последовательность действительных чисел а1, а2,...,an. Заменить все её члены, больше данного Z, этим числом. Подсчитать количество замен. Помогите,пожалуйста,написать программу. Я запуталась что-то.

почему так много writeln? и что значит :? write(ar[i]:4);

Пришлось много раз переносить строку чтобы выглядело презентабельно. Это значит, что отступ перед выводом будет равен трём пробелам.

setlength(ar,n+1); а что это такое? простите за беспокойство

Данная процедура выделяет в памяти достаточно места для хранения n-ого количества элементов массива ar

спасибо

var ar:array of integer;z,i,n,o:integer;begin;o:=0;readln(n);readln(z);setlength(ar,n+1);for i:=1 to n dobegin;readln(ar[i]);if ar[i]>z thenbegin;inc(o);ar[i]:=z;end;end;writeln('Array:');for i:=1 to n dowrite(ar[i]:4);writeln;writeln('Количество замен=',o);end.