Найти сумму цифр числа, записанного прописью

const ts:array[1..9]of string=('один','два','три','четыр','пят','шест','сем','восем','девя');
var x:string;
    i,s:integer;
begin
 s:=0;
 x:='девятьсот одиннадцать';
 if pos('девяносто',x)<>0 then begin delete(x,pos('девяносто',x),9);inc(s,9) end;
 for i:=9 downto 1 do
  while pos(ts[i],x)<>0 do begin delete(x,pos(ts[i],x),length(ts[i]));s:=s+i end;
 if pos('надцать',x)<>0 then begin delete(x,pos('надцать',x),7);inc(s) end;
 if pos('сто',x)<>0 then begin delete(x,pos('сто',x),3);inc(s) end;
 if pos('две',x)<>0 then begin delete(x,pos('две',x),3);inc(s,2) end;
 if pos('десять',x)<>0 then begin delete(x,pos('десять',x),6);inc(s) end;
 if pos('сорок',x)<>0 then begin delete(x,pos('сорок',x),5);inc(s,4) end;
 writeln('сумма цифр: ',s) 
end.