Помогите пожалуйста написать программу на pascal

m := 0;
for i := 0 to Length(arr) - 1 do m := m + arr[i];
m := m div Length(arr);
for i := 0 to Length(arr) - 1 do if arr[i] < m then Inc(count);
WriteLn(count);

77 100 19 93 95 60 19 75 31 32
srednee= 60.1 kol-vo= 5

25 21 23 87 59 42 7 15 55 37
srednee= 37.1 kol-vo= 6

89 45 58 72 90 100 47 69 31 8
srednee= 60.9 kol-vo= 5

6 57 98 39 93 94 21 87 22 14
srednee= 53.1 kol-vo= 5

61 45 45 81 85 78 54 57 70 8
srednee= 58.4 kol-vo= 5

29 46 81 59 47 17 24 91 94 66
srednee= 55.4 kol-vo= 5

22 100 83 76 91 4 65 80 58 99
srednee= 67.8 kol-vo= 4

4 25 65 75 19 60 39 37 7 3
srednee= 33.4 kol-vo= 5

69 46 15 2 74 2 55 84 49 41
srednee= 43.7 kol-vo= 4

22 39 38 34 42 27 63 22 9 50
srednee= 34.6 kol-vo= 5

53 65 65 51 54 2 59 78 71 88
srednee= 58.6 kol-vo= 4

78 26 36 92 32 82 42 74 10 3
srednee= 47.5 kol-vo= 6

73 63 22 57 36 90 24 24 36 5
srednee= 43 kol-vo= 6

64 28 70 89 71 4 87 29 95 19
srednee= 55.6 kol-vo= 4

54 6 66 29 31 92 76 17 33 14
srednee= 41.8 kol-vo= 6

84 36 74 21 66 67 75 59 53 34
srednee= 56.9 kol-vo= 4

13 76 35 5 74 74 27 1 96 3
srednee= 40.4 kol-vo= 6

arithmetic_mean := 0;
count:= 0;
for i := 1 to N do sum := arithmetic_mean + arr[i] / N;
for i := 1 to N do if(arr[i] < arithmetic_mean) then inc(count);