Язык "паскаль авс" найти произведение всех двузначных чисел, сумма цифр которых равна 8

Var i,s,a:integer;
Begin
a:=1;
for i:=10 to 99 do 
Begin 
s:=i mod 10+ i div 10; 
if s=8 then a:=a*i; 
end;
writeln (a);
end.