Люди помогите !!! Очень срочно нужно. (ПАСКАЛЬ)

[Jey_RO]

Помогите сделать очень простое задание..... срочно...

Задание: Дана строка S, длина строки уже известна и обозначена как L. Вычислить и распечатать сумму порядковых номеров всех цифр в строке.

[WOLFak]

var
 i,l,w:longint;
 s:string;
begin
 readln(s);
 l:=length(s);
 w:=0;
 for i:=1 to l do
  if s[i] in ['0'..'9'] then
   w:=w+i;
   writeln(w);
end.

[Jey_RO]

Спасибо большое )))))))))