Подсчёт суммы элементов в введённой строке, Выдаёт ошибку Type Mismath Опции

[Lauri]

Код

program podschet;
uses crt;
var q,w,e:byte;
    s:string;

     begin
     clrscr;
     writeln ('BBedite ctpoky:');
     readln (s);
         readln;
     writeln ('Summa elementov: ');

     for w:=1 to length (s) do
       begin
       e:=e+s[w];
       end;
       write (e);
       readln;
     end.

Не пойму, почему когда я обращаюсь к элементу строки выдаётся такая ошибка...?

[klem4]

Если цифры идут без пробелов

uses crt;
var
  s : string;
  i : byte;
  sum : integer;
begin
   readln(s);
   sum := 0;
   for i := 1 to length(s) do
    sum := sum + (ord(s[i]) - 48);
   writeln(sum);
   readln;
end.

если будет хоть один пробел или знак - не цифра, результат будет не вырным

Сообщение отредактировано: klem4 - 16.01.2006 11:14