Найти сумму всех цифр входящих в символьный массив(использовать множество цифр) — Pascal(Паскаль)

uses crt;
const cf=['0'..'9'];
var a:array[1..1000] of char;
    n,i,s:integer;
begin
clrscr;
n:=0;
writeln('Введите элементы массива-символы, в том числе цифры, окончание ввода 0');
repeat
n:=n+1;
readln(a[n]);
until a[n]='0';
writeln('Цифры, входящие в массив:');
s:=0;
for i:=1 to n do
if a[i] in cf then
 begin
  write(a[i],' ');
  s:=s+(ord(a[i])-48);
 end;
writeln;
write('Сумма цифр=',s);
readln
end.