Нечетность суммы цифр числа - Паскаль

Дано натуральное число n. Надо проверить будет ли сумма цифр этого числа нечётной.

program z1;
uses crt;
var a : string;
 t,er,n,i,s : integer;
begin
 clrscr;
 write('введите число ');readln(a);
 s:=0;
 for i:=1 to length(a) do
 begin
 val(a[i],t,er); преобразует строковое в числовое
 s:=s+t;
 end;
 if s mod 2<>0 остаток от деления
 then write('сумма яв-ся нечётной')
 else write('сумма яв-ся чётной');
 readln;
end.