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