[Страдалецъ]

Тогда наверное так, только я немножко подправил условие 2 что-бы дырки небыло.

Код:

Var
  Msg: String;
  Weight,Height: Integer;
begin
 Height := 90+Random(70);
 Weight := Height-100;
 case Weight
 of -90..-16: Msg := 'Кто же вас так довел';
     -15..-1: Msg := 'Вам не мешало бы поправиться';
           0: Msg := 'Вы стройны как газель';
       1..15: Msg := 'Вам надо заниматься гимнастикой';
      16..25: Msg := 'Вам надо меньше кушать';
         else Msg := 'С этим надо что то делать';
 end;
 ShowMessage(Format('Ваш вес %d, Совет - %s',[Weight,Msg]));
end;