Написать программу, где вводиться число и находитьяс сумма цифр(паскаль, или lazarus)

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write('сумма цифр: ',abs(ReadInteger('введите число:')).ToString.Select(x->x.ToDigit).Sum);
end.