Помогите, пожалуйста, найти ошибку в программе!!
const
N = 20;
var a: array [1..N] of integer;
i, j, max: integer;
begin
for i := 1 to N do
readln(a [i]);
for i := 1 to N do
if (a[i]>=100) then
if (a[i]<=1000) then
if (a[i] mod 2 = 0) then
if (a[i]>max) then
max := a[i];
if max >=100 then
writeln (max)
else
writeln('He найдено');
end.