Используя оператор case составьте программку. По выделенному буквенному обозначению категории

пишется просто но необходимо отыскать всю эту информацию

Var k:char;
begin
write('Введите категорию (A,B,C,D,M): ');readln(k);
case k of
 'A': writeln('байки');
 'B': writeln('легковые авто');
 'C': writeln('грузовые авто');
 'D': writeln('автобусы');
 'M': writeln('мопеды');
 else writeln('Таковой категории нет');
 end;
end.

Пример:
Введите категорию (A,B,C,D,M): C
грузовые авто