Угадать животное из списка, задав пользователю 4-5 вопросов

var
  c:integer;
function vopros(s:string;max:integer):integer;
var
  i:integer;
begin 
  repeat
    writeln(s);  
    readln(i);
  until (i>0)  and (i<=max);
  vopros:=i;
end;  
begin
  writeln('Загадайте животное из списка,а я угадаю:');
  writeln('Крокодил,акула,слон,фламинго,медведь,чайка,чепепаха,лиса,кит,страус,собака,коза,щука,соловей,карась,питон');
  case vopros('Вопрос № 1 Выберите вид 1-рыба, 2-пресмыкающееся, 3-птица, 4-млекопитающее',4) of
    1:case vopros('Вопрос № 2 - Это хищник?(1-да, 2- нет)',2) of {щука,карась, акула}
        2:writeln('Это карась');
        1:case vopros('Вопрос № 3 - Живет в соленой воде?(1-да, 2- нет)',2) of
           1:writeln('Это акула');
           2:writeln('Это щука');
          end;
      end;
    2:case vopros('Вопрос № 2 - это хищник?(1-да, 2-нет)',2)of {крокодил,черепаха,питон}
       2:writeln('Это черепаха');
       1:case vopros('Вопрос № 3 - У него лапы есть? (1-да,2-нет)',2) of
          1:writeln('Это крокодил');
          2:writeln('Это питон');
         end;
       end;
    3:case vopros('Вопрос № 2 - оно летает?(1-да,2-нет)?',2) of{фламинго, чайка, страус,соловей}
      2:writeln('Это страус');
      1:case vopros('Вопрос № 3 - питается рыбой?(1-да,2-нет)?',2) of
         2:writeln('Это соловей');
         1: case vopros('Вопрос № 4 - ноги длинные?(1-да,2-нет)?',2) of
            1:writeln('Это фламинго');
            2:writeln('Это чайка');
           end;
        end;
      end;  
    4:case vopros('Вопрос № 2 - оно живет в воде?(1-да,2-нет)?',2) of{слон, медведь,лиса, кит,собака, коза};
       1:writeln('Это кит');
       2:case vopros('Вопрос № 3 - оно зимой спит?(1-да,2-нет)?',2) of
         1:writeln('Это медведь');
         2:case vopros('Вопрос № 4 - оно спит стоя?(1-да,2-нет)?',2) of
           1:writeln('Это слон');
           2:case vopros('Вопрос № 5 - это домашнее животное?(1-да,2-нет)?',2) of
             2:writeln('Это лиса');
             1:case vopros('Вопрос № 6 - оно дает молоко?(1-да,2-нет)?',2) of
               1:writeln('Это коза');
               2:writeln('Это собака');
              end;
            end;
          end;
        end;  
      end;  
    end;  
end.