Составить программу которая определяет какая из цифр: 0, чётная, нечетная, больше 10, нажата на клавиатуре( на паскале)

Var a,b:integer;
begin
writeln('Введите целое число: ');
readln(a);
b:= a mod 2;
if b>0 then 
writeln('Число нечётное') else 
writeln('Число чётное');
if a>=10 then
writeln('Число >=10') else 
writeln('Число =<10');
end.