задача с оператором case (Pascal)

[kena]

есть такая задача:
(оператор case) Написать программы, котторая относилабы введенный продукт к категории овощ, фрукт или другое!

Если в case нельзя использовать string то как тогда? Что тоя не как не догоню?

Если можно то в подробностях пожалуйста!!!
я додумался только до этого(хотя скорее всего это не правильно)

program Fruit;
           uses crt;
           var  a:integer;
            begin 
            write('vvedite produkt');
            read(a); 
             case a of
             1: write ('овощ');
             2: Write('фрукт');
             else write ('Другое');
             end;
        end.

Как присвоить еденице и двойки большое количество фруктов и овощуй

[Sazary]

Можно сделать вот так:

  case a of
             1..100: write ('овощ');
             101..200: Write('фрукт');
             else write ('Другое');
             end;

Где каждое число в диапазоне 1..100 - какой-то овощь, а 101..200 - фрукт.

[kena]

Сообщение от Sazary

Можно сделать вот так:

  case a of
             1..100: write ('овощ');
             101..200: Write('фрукт');
             else write ('Другое');
             end;

Где каждое число в диапазоне 1..100 - какой-то овощь, а 101..200 - фрукт.

Я что то не понян? тоесть на предложенный вопрос "введите продукт" пользователь должен помимо названия еще и цыфру ввести или как?

Извинете но что то я после вчерашнего не догоняю

[Sazary]

тоесть на предложенный вопрос "введите продукт" пользователь должен помимо названия еще и цыфру ввести или как?

Вы можете сделать массив строк, в котором будете хранить названия продуктов. Пользователь вводит название и вы ищете его в массиве. В итоге имеем индекс.

[kena]

Сообщение от Sazary

Вы можете сделать массив строк, в котором будете хранить названия продуктов. Пользователь вводит название и вы ищете его в массиве. В итоге имеем индекс.

Я это сделать не могу так как смоссивами еще не знаком!
Ща почитаю литературу может быть разберусь!
Спосибо большое за ответ!