Viết chương trình con nhập vào xâu S. In ra màn hình xâu số, xâu chữ và tổng các con số của xâu số. Giúp e vs ạ

program Xau;
const max = 100000;
var
    S: string;
    tong, i, c: Word;
Begin
    readln(S);
    tong:= 0;
    for i:= 1 to length(S) do
    Begin
        if S[i] in ['1'..'9'] then
        Begin
            val(s[i], c);
            tong:= tong + c;
            delete(S, i, i);
        End;
    End;
    writeln(tong);
    writeln(S);
End.

uses crt;
var s:string;n,i,t:longint;
begin
   clrscr;
   write('Nhap xau: '); readln(s);
   write('Xau chu: ');
   for i:=1 to length(s) do 
      begin
         if s[i] in ['a'..'z'] then write(s[i]);
         if s[i] in ['A'..'Z'] then write(s[i]);
      end;
   writeln;
   write('Xau so: ');
   for i:=1 to length(s) do 
      begin
         if s[i] in ['0'..'9'] then write(s[i]);
      end;
   writeln;
   for i:=1 to length(s) do 
      begin
         if s[i] in ['0'..'9'] then
            begin
               val(s[i],n);
               inc(t,n);
            end;
      end;
   writeln('Tong xau so: ',t);
   readln
end.