Найти номер первого отрицательного элемента,делящегося на 5 с остатком 2

N := 1; while (N < Size) and (A[N] mod 5 <> 2) and (A[N] >= 0) do Inc(N); if (A[N] mod 5 = 2) and (A[N] < 0) then WriteLn(N) else ('Нету!!! ');