Выбрать из трех заданных чисел то, сумма цифр которого максимальна

function СуммаЦифр(n : Integer) : Integer := (n <> 0 ? n mod 10 + СуммаЦифр(n div 10) : 0);
 
begin
  (var a, var b, var c) := (ReadLnInteger('a ='), ReadLnInteger('b ='), ReadLnInteger('c ='));
  var Наименование := 'a'; var Значение := a;
  if СуммаЦифр(b) > СуммаЦифр(Значение) then begin Наименование := 'b'; Значение := b; end;
  if СуммаЦифр(c) > СуммаЦифр(Значение) then begin Наименование := 'c'; Значение := c; end;
  WriteLnFormat('Максимальная сумма цифр у числа {0} = {1}.', Наименование, Значение);
end.

begin
  var InputValues:= ReadString('Введите числа через пробел:').Split(' ').ToArray().Select(z -> z.Select(v -> integer.Parse(v)).Sum()).Println('; ').ToArray();
  Writeln('Число(а) с максимальной суммой чисел имеет(ют) индекс(ы): ', InputValues.Select((z, i) -> (z = InputValues.Max()) ? i : -1).Where(z -> z <> -1));
end.

begin
  writeln('Максимальная сумма цифр в числе:', Range(1,3).Select(i->ReadInteger('Введите '+inttostr(i)+' число:')).OrderBy(i->IntToStr(i).ToCharArray.Sum(c->ord(c))).Last);
end.