Nhập vào 1 số lớn hơn 0 và nhỏ hơn 1000. Viết cách đọc số đó bằng tiếng Việt ra màn hình

 program thuc_hanh;

uses crt;

var n ,x, y, z : integer;

begin

clrscr;writeln(‘nhap vao so n la’);readln(n);writeln(‘cac chu so trong so n la’);  if (n>=1000) and (n<=3000) then begin  x :=n mod 10; writeln(a:4);  n :=n div 10;  x :=n mod 10; writeln(b:4);  n :=n div 10;  z :=n mod 10; writeln(c:4);  n :=n div 10;   writeln(n : 4);end

        else writeln(‘khong xac dinh’);

        readln;

end.