Найти произведение двузначных нат.чисел, заканчивающихся на 8. ​

program raf105;

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

i,b:integer;

begin

i:=1;

b:=1;

a[1]:=1;

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

while a[i] <> 0 do

begin

 readln(a[i]);

 if (a[i]<100) and (a[i]>9) and ((a[i] mod 10) = 8)

   then b:= b*a[i];

end;

writeln('Произведение двузначных чисел кончающихся на 8 равно: ',b);

end.