Посчитать сумму элементов массива по mod - Pascal

var t: String; i, r, s: Integer;
begin
  while not SeekEoF do begin
    ReadLn(t); r:=0;
    for i:=1 to Length(t) do r:=(r*10+Ord(t[i])-Ord('0')) mod 104;
    s:=(s+r) mod 104;
  end;
  WriteLn(s);
end.