Mostra a categoria de nadador

program categoria;
uses crt;
  procedure idade (id:integer; var msg:string);
    begin
      if (id >= 5) and (id <= 7) then msg := 'INFANTIL A'
      else
        if (id >= 8) and (id <= 10) then msg := 'INFANTIL B'
        else
          if (id >= 11) and (id <= 13) then msg := 'JUVENIL A'
          else
            if (id >= 14) and (id <= 17) then msg := 'JUVENIL B'
            else
              if (id >= 18) then msg := 'ADULTO';
   end;
   var id: integer;
       msg: string;
   begin
     clrscr;
     writeln ('Digite a idade do nadador');
     readln (id);
     while id > 0 do
     begin
       idade (id,msg);
       writeln ('A categoria do nadador e:', msg);
       writeln;
       writeln ('Digite a idade do nadador');
       readln (id);
     end;
       readkey;
   end.