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

var a: array [1..10] of integer; max, n, i: integer;

begin for i := 1 to 10 do a[i] := random (100); writeln (\'Элементы массива: \'); for i := 1 to 10 do writeln (a[i], \' \'); max := a[1]; n := 1; writeln; for i := 2 to 10 do if a[i] > max then begin n := 1; max := a[i] end else if a[i] = max then inc (n); writeln (\'Количество элементов, имеющих максимальное значение: \', n)end.