Pascal. Оператор выбора.Есть данные об автомобилях 4 моделей. Ввести номер модели

Var k:integer;
begin
write('номер модели: ');
readln(k);
case k of
 1: writeln('Lada, 2010, стоимость 300000');
 2: writeln('Мазда, 2011, цена 400000');
 3: writeln('Тоета, 2015, стоимость 2300000');
 4: writeln('Kia, 2016, стоимость 5300000');
 else writeln('Ошибка ввода');
 end;
end.

Пример:
номер модели: 2
Мазда, 2011, стоимость 400000