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

Program proga;
var i:integer;
begin
for i:=10 to 99 do begin 
if ((i mod 10 = 5) or(i div 10 = 5)) then 
write(i);
end;
end.