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

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]lt;=100 then write(a[i], ' ');
end.


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