Напечатать фразу: «Вам столько-то лет» с правильным окончанием

Program Primer1;
 
var a: integer;
     b: integer;
 
begin
     writeln('Введите Ваш возраст');
     readln(a);
     b:=a mod 10;
     if a=11 or a=12 or a=13 or a=14 or a=15 or a=16 or a=17 or a=18 or a=19
        then writeln('Вам ',a,' лет');
     if b=1
        then writeln('Вам ',a,' год');
     if b=2 or b=3 or b=4
        then writeln('Вам ',a,' года');
     if b=5 or b=6 or b=7 or b=8 or b=9 or b=0
        then writeln ('Вам ',a,' лет');
end.

Program Primer1;
var a: integer;
b:real;
begin
writeln('Введите Ваш возраст');
readln(a);
b:=round(frac(a/10)*10);
if ((b>4) and (b<10)) 
or (b=0) 
or ((a>10) and (a<19)) then writeln('Вам ',a,' лет');
if b=1 then writeln('Вам ',a,' год');
if (b>1) and (b<5) then writeln('Вам ',a,' года');
end.

var
 k: integer;
begin
 readln(k);
 write('Вам ');
  case (k mod 10) of
   1: write(k, ' год');
   2..4: write(k, ' года');
   5..9, 0: write(k, ' лет');
  end;
end.

 if (a=11) or (a=12) or (a=13) or (a=14) or (a=15) or (a=16) or (a=17) or (a=18) or (a=19)

if a in[11..19] then

var
 k: integer;
begin
 readln(k);
 write('Вам ');
  if k in [11..19] then write(k, ' лет') else
   case (k mod 10) of
    1: write(k, ' год');
    2..4: write(k, ' года');
    5..9, 0: write(k, ' лет');
   end;
end.

case k of
11..14:write('лет');
else case k mod 10 of
   1: write(k, ' год');
   2..4: write(k, ' года');
   5..9, 0: write(k, ' лет');
  end;
end;

var a: integer;
b: string;
begin
writeln('Введите кол-во лет в диапазоне 1-150');
readln(a);
case a of
1,21,31,41,51,61,71,81,91,101,121,131,141: begin b:='год'; end;
2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94,102..104,122..124,132..134,142..144: begin b:='года'; end;
5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..100,105..120,125..130,135..140,145..150: begin b:='лет'; end;
else writeln('Error');
end;
if (a>0) and (a<151) then
writeln('Вам ',a,' ',b)
else
writeln('Ошибка! Число не входит в диапазон 1-150!');
end.