Ввести возраст человека (от 1 до 150 лет) и вывести его

Program v;

var

age : Integer;

begin

WriteLn(Возраст: ); ReadLn(age);

Write(Вам , age, );

if age=11 then WriteLn(лет);

if age=12 then WriteLn(лет);

if age=13 then WriteLn(лет);

if age=14 then WriteLn(лет);

if age mod 10=1 then WriteLn(год);

if age mod 10=2 then WriteLn(года);

if age mod 10=3 then WriteLn(года);

if age mod 10=4 then WriteLn(года);

if age mod 10=5 then WriteLn(лет);

if age mod 10=6 then WriteLn(лет);

if age mod 10=7 then WriteLn(лет);

if age mod 10=8 then WriteLn(лет);

if age mod 10=9 then WriteLn(лет);

if age mod 10=0 then WriteLn(лет);

end.