Дана строка, состоящая только из цифр. Найти сумму этих цифр

Varst: string; i, s, x, err: integer; beginwrite ('Vvedite stroku: '); readln (st); for i: =1 to length (st) do begin val (st[i], x, err); s: =s+x; end; writeln ('Summa=', s); readln; end.