pascal сумма чисел

[Denyer]

В числе нужно посчитать сумму между двумя последними нулями написал программу, что не так

uses crt;
var n,k,i,c,s,sum:integer;a:string;
begin
clrscr;
write('vvedite 4islo a=');readln(a);
n:=length(a);
for i:=1 to n do
if a[i]=0 then begin k:=i;break;end;
for i:=n downto k do
if a[i]=0 then begin k1:=i;break;end;
writeln;
s:=0;
for i:=k to k1 do
s:=s+a[i];
writeln('s=',s);
readln;
end.

[zasqzasq]

ты считаеш между первым и последним