Сделать программу в паскале классификацию по возрасту с 10 лет по 100. Срочно надо. и чтобы выводило только одну строчку ответа

Вроде так:var b, c: integer; begin   Writeln('Введите ваш возраст');   Readln(b);   if b <= 0 then WriteLn('Вам 0 лет')       else begin          c := b mod 100;          if (c >= 10) and (c <= 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('Для выхода нажмите <Enter>');  Readln; end.