giúp mình bài này nhá code pascal

chúc bạn học tốt

uses crt;
var  i:longint; kt:boolean;
        s,ans,x,t:string;

function cong(a,b:string):string ;
var i,k,nho:longint;c:string ;
begin
        while (length(a) < length(b)) do a := '0' + a ;
        while (length(a) > length(b)) do b := '0' + b ;
        c:=a;nho:=0;
        for i:=length(a) downto 1 do
        begin
                k:=ord(a[i]) + ord(b[i]) + nho - 96 ;
                nho := k div 10 ;
                c[i] := chr(k mod 10 + 48) ;
        end;
        c:=chr(nho + 48) + c ;
        while ( (c[1] = '0') and (length(c) > 1)) do delete(c,1,1);
        exit(c);
end;

begin
clrscr;
        kt:=false;
        readln(s);
        x:=s ;
        ans:='0';t:='';
        s:=s+' ';
        for i:=1 to length(s) do
                if (s[i] in ['0'..'9']) then t := t + s[i] else
                begin
                        if (t <> '') then
                        begin
                                while ( (t[1] = '0') and (length(t) > 1)) do delete(t,1,1);
                                ans := cong(ans, t);
                                kt:=true;
                                t := '' ;
                        end;
                end;
        if (kt = false) then writeln('Nhap sai! Yeu cau nhap lai:') else
        begin
                writeln('Chuoi da nhap :');
                writeln(x);
                writeln;
                writeln('Tong cac so co trong chuoi: ', ans);
        end;
        readln
end.