program bai_giai;
var f,g:text;
    s:string;
    i,t,dkt,dcs,so:integer;
begin
    Assign(f,'XAU.INP');  reset(f);
    Assign(g,'XAU.OUT');  rewrite(g);
    readln(f,s);
    dkt:=0; dcs:=0; t:=0;
    for i:=1 to length(s) do
        if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then dkt:=dkt+1
        else if s[i] in ['0'..'9'] then
            begin
                dcs:=dcs+1;
                val(s[i],so);
                t:=t+so;
            end;
    if (dkt=length(s)) or (dcs=length(s)) then write(g,'Sai yeu cau! Khong thuc hien!')
        else
            begin
                writeln(g,s);
                writeln(g,t);
            end;
    close(f); close(g);
end.

Đếm số kí tự chữ cái (dkt) và đếm kí tự chữ số (dcs) để thực hiện nếu dkt hoặc dcs bằng độ dài của xâu thì không có cái còn lại thì sai yêu cầu.

val(s[i],so); là chuyển kí tự chữ số s[i] thành chữ số rồi sa đó tăng số vào tổng.

Không có file: 

program Hello;
uses crt;
var s: string;
    tong, i, k1, k2, a: longint;
begin
    readln(s);
    for i:= 1 to length(s) do 
        begin
            if s[i] in ['0'..'9'] then 
                begin
                    k1:= 1;
                    val(s[i],a);
                    tong:= tong + a;
                end;
            if s[i] in ['a'..'z'] then k2:= 1;
        end;
    if (k1  = 1) and (k2 = 1) then
        begin
            writeln('S: ', s);
            writeln('Tong: ', tong);
        end
    else 
        writeln('Sai yeu cau! Khong thuc hien!');
readln;
end.

==================================

Có file:

program Hello;
uses crt;
var s: string;
    tong, i, k1, k2, a: longint;
    f1,f2:text;
begin
    assign(f1, 'XAU.INP'); reset(f1);
    assign(f2, 'XAU.OUT'); rewrite(f2);
    readln(f1,s);
    for i:= 1 to length(s) do 
        begin
            if s[i] in ['0'..'9'] then 
                begin
                    k1:= 1;
                    val(s[i],a);
                    tong:= tong + a;
                end;
            if s[i] in ['a'..'z'] then k2:= 1;
        end;
    if (k1  = 1) and (k2 = 1) then
        begin
            writeln(f2,s);
            writeln(f2,tong);
        end
    else 
        writeln(f2,'Sai yeu cau! Khong thuc hien!');
    close(f1); close(f2);
readln;
end.