Найти все двузначные числа. в записи которых есть цифра 5 (Через цикл с параметром)

Const n=15;

var a:array[1 ... n]of integer;

i, b:integer;

begin

for i:=1 to n do a[i]:=Random (100) - 20;

for i:=1 to n do

write (a[i],' ') ;

writeln;

for i:=1 to n do begin

if (a[i] mod 5 = 0) and (a[i] mod 100) or (a[i] div 10=5) then

write (a[i],' ') ;

end;

writeln;

end.