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

var S:string;

i,j,t,d:longint;

y:string;

kq:string;

z:string;

begin

  assign(input,'TMK.INP'); reset(input);

  assign(output,'TMK.OUT'); rewrite(output);

   readln(s);

y:='';

t:=0;

z:='';

    for i:=1 to length(s) do

      begin

        if s[i] in ['0'..'9'] then y:=y+s[i];

        val(y,j);

        t:=t+j;

        y:='';

      end;

    str(t,kq);

    if length(kq)<6 then d:=6-length(kq);

     while d<>0 do

       begin

         z:=z+'0';

         d:=d-1;

       end;

     if length(kq)<6 then z:=z+kq;

write(z);

end.

`* Pascal:`

`" "`

program mot_de_passe;
uses crt;
var S : ansistring;
    indi : integer;
    ouv, fer : text;
    total : longint;
    
begin
    clrscr;
    assign(ouv, 'CAU2.INP');
    reset(ouv);
    assign(fer, 'CAU2.OUT');
    rewrite(fer);
    
    total := 0;
    readln(ouv, S);
    for indi := 1 to length(S) do  
        if S[indi] in ['1' .. '9'] then
            total := total + ord(S[indi]) - 48;
        
    str(total, S);    
    for indi := 1 to 6 - length(S) do
        write(fer, 0);
        
    write(fer, S);
    
    close(fer);
    close(ouv);
    
end.