Массив A[10] Найти элементы которые больше 100, подсчитать их количество и вывести их на экран НАпишите команду, пожалуйста.

Писал на скорую руку, так что, программа немного кривая, доработай чуть-чуть: var a, b, c, i, n, g:integer; mass: array[1..100000] of integer; begin readln(n); writeln('Введите числа '); for i:=1 to n do begin read(mass[i]); if mass[i]>100 then b:=b+1; if mass[i]>100 then g:=mass[i]; write(g, ' '); end; writeln('Всего чисел больших ста ', b); end.