Помогите решить задачу на Кумире: Дан массив. Напечатать все элементы, не превышающие числа 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 чисел в массиве.

Если возникнут вопросы или будут ошибки в ходе работы программы, пиши в комментарии.