Ввести число от 5 до 9.Вывести его значение словом.Turbo Pascal

program zz1;

var a:integer; // вводим переменные целого типа

begin

write( введите данное число от 5 до 9 );  // вводим с клавиатуры число

read(a);

if a = 5 then write( 5 ); // проверяем, если введенное число равно 5, то выводим один ответ

if a = 6 then write( 6 );// проверяем, если введенное число одинаково 6, то выводим иной ответ

if a = 7 then write( Семь );// проверяем, если введенное число одинаково 7, то выводим третий ответ

if a = 8 then write( Восемь );

if a = 9 then write( Девять );

end.