Bài tập về xâu

Nội dung của bài toán:
Nhập vào một xâu bất kỳ sau đó in ra màn hình hai xâu: xâu chữ số và xâu các kí tự còn lại.
Hướng giải quyết:
Xây dựng một hàm, hàm này gồm một tham số, tham số này ghi nhận xâu các kí tự còn lại của xâu, còn giá trị trả về của hàm là một xâu chứa các chữ số.
Function LocXau(Var S:string):String;
Var St1, St2:string;i:Byte;
Begin
St1:=‘ ‘;
For i:=1 to Length(s) Do
If (‘0’<=S[i]) And (S[i]<=‘9’) Then
St1:=St1+S[i]
S:=St2;
End;
BEGIN
END.
a12b3c4d
Writeln(‘Nhap vao mot xau:’);
Readln(s);
Writeln(‘Xau Chu La:’,S);
Var s:string;
Program LocXauSo;
Else
St2:=St2+S[i];
Writeln(‘Xau So La:’,LocXau(s));
a
3
b
2
1
c
d
4
S
ST1
1
2
3
4
St2:=‘ ‘;
ST2
a
b
c
d
LocXau:=St1;
S=