Нужно написать код в паскале помогите

var
  s: string;
  i, sum: integer;

begin
  sum := 0;
  ReadLn(s);
  for i := 1 to Length(s) do
  if s[i] in [#$30 .. #$39] then
    sum := sum + Ord(s[i]) - $30;
  WriteLn(sum);
end.