Bạn nào chuyên tin giúp mik với Làm giùm mik trên pascal ạ 😥😥😥

const fi = 'MATMA.INP';
    fo = 'MATMA.OUT';
var s: string;
    i, res: longint;
begin
    assign(input, fi); reset(input);
    assign(output, fo); rewrite(output);
    readln(s);

    for i:=1 to length(s) do 
        if ((ord(s[i]) - 48) mod 2 = 0) and (s[i] in ['0'..'9']) then
            res:=res + ord(s[i]) - 48;

    writeln(res);
    close(input);
    close(output);
end.