Программа в паскале, через char (не string) ! вводится строка символов, найти сумму и количество введенных цифр.

Program fff;
var  c: Char;  n, u, sum: Integer;  begin  write('Кол-во цифр для ввода: ');  readln(n);    for u := 1 to n do begin    readln(c);      sum := sum + Ord(c)-48;  end;    writeln('Кол-во введёных цифр = ', n);  writeln('Сумма введёных цифр = ', sum);end.