Для динамического массива подсчитать количество его элементов, больших последнего его элемента - Free Pascal (1021)

Формулировка задачи:

Для динамического массива подсчитать количество его элементов, больших последнего его элемента.

помогите решить пожалуйста

Решение задачи: «Для динамического массива подсчитать количество его элементов, больших последнего его элемента»

Листинг программы

var
  i, n, count : integer;
  arr : array of integer;
begin
  randomize;
  write('n = '); readln(n);
  SetLength(arr, n);
 
  for i := 0 to high(arr) do
  begin
    arr[i] := random(100);
    write(arr[i]:3);
  end;
  writeln;
 
  count := 0;
  for i in arr do
    if i > arr[high(arr)] then inc(count);
 
  writeln('count = ', count);
  SetLength(arr, 0);
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

В первой строке объявляются переменные i, n, count типа integer и arr типа array of integer.
Вторая строка отвечает за инициализацию генератора случайных чисел.
Третья строка выводит сообщение «n = » и ожидает ввода количества элементов массива.
Четвёртая строка использует функцию SetLength для установки длины массива в соответствии с введённым количеством элементов.
В цикле от 0 до high(arr) заполняют массив случайными целыми числами от 0 до 99.
Выводят на экран каждый элемент массива, округляя его до трёх знаков после запятой.
Выводят на экран сообщение «count = » и ожидают ввода количества элементов массива.
В цикле перебирают все элементы массива и если текущий элемент больше последнего, увеличивают счётчик count на единицу.
Выводят на экран количество элементов массива, больших последнего.
Используют функцию SetLength для очистки массива.