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

Pascal как вижу
Могу сказать как PascalABC.Net, насчет Turbo или Free не уверен, что точно также

операция mod доступна для типов  real, ( на вход подаются целые числа)
 a : real;
  a := 10 mod 3; Работает
  a := a mod 3; Не работает

а вот операция деления (/) только для типа real

И если у тебя в описании a : integer; то работать (a:=a/2;) точно не будет