Program obliczający sumę cyfr podanej liczby

Kod źródłowy:

uses crt;{lub uses wincrt;}
var liczba:word;
    cyfr:byte;
    cyfra:byte;
    s:string;
    error:integer;

begin
  write('Podaj liczbe : ');
  readln(liczba);

  str(liczba,s);
  liczba:=0;
  for cyfr:=1 to length(s)do
  begin
    val(s[cyfr],cyfra,error);
    liczba:=liczba+cyfra;
  end;
  writeln('Suma cyfr to ',liczba);
  readkey;
end.