Viết chương trình nhập vào một số a là số điện thoại có 10 chữ số in ra màn hình số điện thoại đó bằng chữ

Ví dụ: 0986584287

In ra: khong chin tam sau nam tam bon hai tam bay

Viết chương trình nhập vào một số tự nhiên a là số điện thoại có 10 chữ số in ra màn hình số điện thoại đó bằng chữ

Ví dụ:  nhập vào 0987654321

In ra: khong chin tam bay sau nam bon ba hai mot

Pascal nhee :0

uses crt;
var s:string;
i:integer;
a:array['0'..'9'] of string =('khong','mot','hai','ba','bon','nam','sau','bay','tam','chin');
begin
clrscr;
readln(s);
for i:=1 to length(s) do
 if i<>length(s) then
  write(a[s[i]],' ')
 else
  write(a[s[i]]);
readln
end.

uses crt;
var a:string;
i:integer;
begin
clrscr;
readln(a);
for i := 1 to length(a) do
begin
case a[i] of
'0':write('khong ');
'1':write('mot ');
'2':write('hai ');
'3':write('ba ');
'4':write('bon ');
'5':write('nam ');
'6':write('sau ');
'7':write('bay ');
'8':write('tam ');
'9':write('chin ');
end;
end;
end.