Массив 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]gt;100 then b:=b+1;
if mass[i]gt;100 then g:=mass[i];
write(g, ' ');
end;
writeln('Всего чисел великих ста ', b);
end.