"Типы операндов не соответствуют операции". Не могу найти ошибку, подскажите пожалуйста
Строчка, в которой ошибка: if (a mod 2 = 0) then a:=a/2;