Для динамического массива подсчитать количество его элементов, равных первому его элементу

program dyn_arr;
{Решаем задачу с [url]https://www.cyberforum.ru/free-pascal/thread1162590.html[/url]
 
Для ДИНАМИЧЕСКОГО массива подсчитать количество его элементов, равных
первому его элементу.}
{$mode objfpc}{$H+}
uses
   math {для randomRange};
 
var
  arr: array of integer; // динамический массив
  i, val, N: integer;
begin
  Randomize; // инициализация ГСЧ
 
  //устанавливаем случаяное значение размера массива от 10 до 20 элементов
  SetLength(arr,RandomRange(10, 20));
 
  //заполняем массив случайными значениями от -10 до +10
  //и выводим массив на экран
  writeln;
  for i:= 0 to length(arr) do begin
    arr[i]:= RandomRange(-10, 10);
    write(arr[i], ' ');
  end;
 
  //подсчитываем сколько эл-тов равны первому
  val:= arr[0];
  N:= 0;
  for i:=1 to length(arr) do
    if arr[i] = val then inc(N);
 
  writeln(LineEnding, 'Number of elements which are equal to the first one is: ', N);
  readln;
 
end.