почему программка(паскаль) не исполняет 1-ое условие if?program tn;var a:

Почему программка(паскаль) не исполняет 1-ое условие if?
program tn;
var a: integer;
begin
writeln ('Введи число');
read(a);
if ((agt;=1000)and (alt;100))then writeln ('Ошибка');
if (((a mod 10) + ((a div 10) mod 10) + a div 100 ) mod 2 = 0) then writeln ('Сумма цифр данного трехзначного числа-четное число')else writeln('Сумма-число нечетное');
end.