Mensajes

no entiendo porque no funcionaaaaaa

program Project1;
var
nro,valor,i,suma:integer;

begin
     writeln('ingrese un numero ');
     read(nro);
     suma:=0;
     repeat
           begin  if nro < 0 then
                nro := -(nro);
                writeln(nro);
                valor:= nro mod 10 ;
                nro := nro div 10;
                suma:= suma + valor;
             else
             valor:= nro mod 10 ;
             nro := nro div 10;
             suma:= suma + valor;
     until valor = 0;
    end;
writeln('suma ', suma);
readln;readln;
end.