Вводится возраст человека. вывести на экран, является ли он ребенком, молдых лет или пожилым

Uses crt;
var x:integer;
begin
write('Лет:'); read(x);
if (x>=5) and (x<=18) then write('Ребенок.');
if (x>18) and (x<=45) then write('Молодой человек.');
if (x>55) and (x<=100) then write('Пожилой.');
end.
Например,а про человека(какой он),не всегда можно по годам определить!