Сделать программу в паскале систематизацию по возрасту с 10 лет по

Вроде так:

var b, c: integer;
begin
  Writeln('Введите ваш возраст');
  Readln(b);
  if b lt;= 0 then WriteLn('Для вас 0 лет')
      else begin
         c := b mod 100;
         if (c gt;= 10) and (c lt;= 20) then WriteLn('Для вас ', b, ' лет')
         else
            case (b mod 10) of
               1: WriteLn('Для вас ', b, ' год');
               2..4: WriteLn('Вам ', b, ' года');
               5..9, 0: WriteLn('Вам ', b, ' лет')
              end;
   end;
 Writeln('Для выхода нажмите lt;Entergt;');
 Readln;
end.