Помогите доделать задачку,совсем мелочь, Помогите доделать задачку,совсем мелочь осталась а понять не могу! Опции

[la_puce]

Добрый вечер всем.У меня возникла такая проблема...Не могу до конца решить задачу:дана последовательность чисел a1,a2,..a50Получить сумму членов ai данной последовательности,которые
1)кратные 5
2)Нечётный и отрицательные
3) удовлетворяют условию |ai|<i в квадрате...
Сумму вывести на печать и числа её образующие.
Прогу всю сделал вот только не поучается вывести числа которые образуют сумму помогите пож.
Вот мой код

uses
crt;
var
a:array[1..50] of integer;
i,n,z:integer;
begin
 clrscr;
 writeln;
 writeln('----------------------------------------');
 writeln('vvedite posledovatelnost chisel');
 writeln('posle vvoda kazhdogo chisla nazhmi enter');
 writeln('----------------------------------------');
 for i:=1 to 50 do begin
   begin
     writeln('a[',i,'] ');
     readln(a[i]);
     z:=a[i] mod 5;
     if z=0 then
     z:=a[i] mod 2;
     if z<0 then
     if abs(a[i])<sqr(i) then begin
     writeln(a[i],' ');
     N:=N+a[i];
     end;
      end;
   end;
 writeln('-----------------------------------------');
 write('Summa chlenov novoi posledovatelnosti ravna'',',n);
 writeln('-----------------------------------------');
 readln;
end.