Написать программу, которая заменяет все цифры в заданной строке соответствующим словесным названием (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.