Помогите написать программу которая из 20 чисел находит максимальное…

Помогите написать программу которая из 20 чисел находит максимальное трехзначное число, не кратное 9. Если таких чисел нет, писать"нет"constN=20; vara: array [1… N] of integer; i,j,max: integer; beginfor i: =1 to N doreadln (a[i]); max: =99; j: =a[i]; for i: =1 to N doif (j>99) and (j<999) and (j mod 9 <>0) and (j>max) then max: =j; if max>99 then writeln (max) else writeln ('no'); readln; end. Программа проверяет только последнее число, а не все 20. Где ошибка?