Để đổi xâu kí tự là số sang số thì bạn dùng val
 Ví dụ:

   Bạn có xâu S = '123456' và biến X có dữ liệu là 1 số nguyên

   Để chuyển xâu S sang số thì bạn thực hiện như sau:
   val(s,x) khi đó xâu S = '123456' sẽ qua biến X = 123456 

Cách tách các kí tự số

    ví dụ bạn có xâu S = 'abcd12345' và một xâu ST;

    rồi bạn thực hiện như sau

     for i := 1 to length(s) do // chạy từ 1 đến độ dài của xâu S

     if s[i] in ['0'..'9'] then st := st + s[i] // kiểm tra nếu như s[i] là kí tự số thì gán biến st + s[i] ( st       dùng để lưu các kí tự số )
rồi in st ra màn hình. ( writeln(st));

- Thủ tục Val (S, V) đổi một xâu ký tự S sang dạng số và gán cho biến V

+ S := '6322'

+ Val (S, X) ⇒ Giá trị biến X = 6322

- Đoạn chương trình tách số từ 1 xâu S 

S1 := '';

for i := 1 to length(S) do

if (S[i] <= '9') and (S[i] >= '0')

then S1 := S1 + S[i];