Дан массив целых чисел. Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2 — Pascal(Паскаль)

const
n=20;
var
i,j,nom:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=10-random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');

nom:=0;
for i:=1 to n do
  if (a[i] mod 5=-2) and (a[i]<0) then begin nom:=i; break; end;

writeln('-------:',nom);

writeln();
end.