Здравствуйте, помогите пожалуйста найти ошибку
program name;
uses crt;
var a:integer;
begin
writeln ('Введите время=');
readln (a);
if (a)then;
begin
writeln ('ночь');
end;
///
if a=3 then
begin
writeln ('утро');
readln (d);
if a= 12 then
begin
writeln ('день');
end;
if a=16 then
begin
writeln ('вечер');
///
if a=21 then
begin
writeln ('ночь');
///
end;
end;