напишите программку которая по табельному номеру рабочего (целому числу от 1

Var
n: integer;

begin
read(n);
case n of
1: writeln('Сварщик, 1 разряд');
2: writeln('Токарь, 2 разряд');
3: writeln('Автоклавщик,3 разряд');
4: writeln('Дробильщик, 4 разряд');
5: writeln('Жаровщик, 5 разряд');
6: writeln('Интонировщик,6 разряд');
7: writeln('Машинисит протектороного агрегата, 7 разряд');
8: writeln('Ассистент механика, 8 разряд');
9: writeln('Здесь САМ Отыщешь');
10: writeln('И ТУТ ТОЖЕ');
else writeln('Такового номера нет');
end;
end.