Написать программу, которая заменяет все цифры в заданной строке соответствующим словесным названием (1 - one, 2 - two, 3 - three и т. д.)

Язык программирования паскаль.

Var a: integer;

begin writeln ('введи цифру (1-9) ') ;

readln (a) ;

if a=1 then writeln ('One') ;

if a=2 then writeln ('Two ') ;

if a=3 then writeln ('Three') ;

if a=4 then writeln ('Four') ;

if a=5 then writeln ('Five') ;

if a=6 then writeln ('Six') ;

if a=7 then writeln ('Seven') ;

if a=8 then writeln ('Eight') ;

if a=9 then writeln ('Nine') ;

end.