Помогите пожалуйста сделать в паскале.

const n=20;
var a: array[1..n] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to n do
begin
a[i]:=random(201);
write(a[i],' ');
if a[i] mod 10=0 then inc(k)
end;
writeln;
writeln(k)
end.

c:=0;
for i:=1 to 20 do
begin
a[i]:=random(201);
if a[i] mod 10 = 0 then inc(c);
end;

Чем помочь? Один цикл, один счетчик, одна проверка на остаток от деления на 10...

8 198 47 33 112 49 59 155 123 135 93 22 59 164 141 127 56 96 33 35
0
7 58 152 115 129 62 73 200 178 58 110 65 106 148 69 151 11 1 55 7
2
94 187 45 48 142 37 159 159 101 137 179 188 188 197 86 62 43 62 56 107
0
145 135 149 139 107 78 81 113 126 46 154 15 110 75 171 96 118 151 89 151
1
152 142 88 86 24 105 118 96 150 111 196 23 134 112 179 161 108 76 78 139
1
134 79 78 165 89 53 93 162 29 88 67 54 158 141 39 192 32 103 53 104
0
65 147 149 185 186 143 128 192 183 143 200 6 97 190 150 138 1 22 72 169
3
100 187 36 150 62 47 69 61 151 170 180 138 136 11 114 10 149 139 81 110
6
63 51 41 196 191 109 186 48 19 126 85 153 147 60 173 68 118 49 152 148
1
190 141 8 31 128 29 83 36 69 177 170 32 163 101 34 183 127 9 163 93
2
138 97 182 35 191 66 146 177 109 118 16 139 157 27 180 20 43 28 48 51
2
164 196 6 39 189 81 119 53 145 68 41 88 87 157 85 72 42 24 138 2
0
161 62 89 10 76 77 15 162 82 124 128 116 192 130 154 154 170 163 1 21
3
9 22 142 95 131 26 72 126 26 31 44 108 40 157 2 69 103 185 124 138
1
78 64 127 60 131 197 103 56 18 157 2 74 76 101 64 52 99 9 66 122
1
12 109 101 65 188 56 77 128 75 16 184 99 138 157 25 30 27 87 93 108
1
116 136 51 161 104 145 153 127 48 45 108 145 193 60 160 149 152 116 43 196
2
17 178 139 109 75 39 101 36 110 138 43 146 17 153 40 82 84 182 110 47
3
88 1 10 133 151 20 179 190 132 67 120 172 26 119 14 192 101 135 94 21
4
166 183 63 16 17 124 15 93 41 137 164 128 139 88 31 25 10 39 135 83
1
151 123 8 136 44 136 150 21 106 47 176 118 144 199 170 35 143 200 22 167
3
119 170 73 182 36 18 176 174 2 139 4 169 34 44 134 95 156 25 2 110
2
80 51 184 37 158 39 200 96 114 26 125 113 129 32 10 5 67 24 63 4
3
120 58 26 167 46 191 153 58 7 58 145 157 141 18 36 19 192 192 177 58
1
65 40 79 60 64 99 186 140 70 194 12 178 62 151 194 121 10 22 89 166
5

Хм.