Помогите решить задачу на Кумире: Дан массив. Напечатать все элементы, не превышающие числа 100. Заранее благодарен)))

var n, i: integer; a:array of integer; begin readln(n); setlength(a, n+1); for i:=1 to n do read(a[i]); for i:=1 to n do if a[i]<=100 then write(a[i], ' '); end. n - размер массива. n вводится в начале, а затем уже вводится n чисел в массиве. Если возникнут вопросы или будут ошибки в ходе работы программы, пиши в комментарии.