Pascal. Написать такую программу:На вход получает N - количество элементов последовательности

Pascal. Написать такую программку:
На вход получает N - количество частей последовательности чисел.
Затем следуют элементы последовательности.
Программка обязана вывести все отрицательные элементы последовательности, чьи квадраты не превосходят 7000, в порядке, оборотном порядку их ввода.
К примеру на вход идут:
4
-3
6
-7
-99

На выходе получаем:
-7
-3

Я предлагаю такое начало программы:

program num9;
const N = 5;
var a : array [1..N] of integer;
i, m : integer;
begin for i := 1 to N do
readln (a[i]);
m := a[i];
if (m lt; 0) and (m*m lt; 7000) then

Как следует поступить далее?