Вопрос к тем,кто шарит в программировании (по паскалю) : скласти програму,що дозволяє в одновимірному масиві,що складається з n речових елементів,обчислити кількість елементів масиву,рівних першому елементу

Program array;
var
    arr: array of real;
    i: integer;
begin
randomize; {в даному прикладі використано випадкові дійсні числа від 0 до 1}
write('введіть n: ');
readln(n);
SetLength(arr, n);
for i:= 0 to n do
arr[i] := random;
for i:= 1 to n do
if arr[i] = arr[0] then
write(i, ' ');
end.