Вводится текущее время. написать программку, определяющую это время до полудня или

Var a,b:integer;

begin

writeln(Введите текущее значение часов в 24-х часовом формате);

readln(a);

writeln(Введите текущее значение минут);

readln(b);

if (alt;12) and (blt;=59) then writeln(время до пополудни);

if (a=12) and (b=0) then writeln(полдень);

if (agt;=12) and (bgt;0) then writeln(время после пополудни);

end.