Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого - наибольшая (программа Паскаль)

procedure S(i:int64;var r:int64);
begin
  r:=0;
  while i>0 do begin
    r:=r+i mod 10;
    i:=i div 10;
  end;
end;
var
  a,sa,b,sb,c,sc,d,sd:int64;
begin
  write('Введите 4 числа:');
  readln(a,b,c,d);
  S(a,sa);S(b,sb);S(c,sc);S(d,sd);
  if sa>sd then begin sd:=sa;d:=a;end;
  if sb>sd then begin sd:=sb;d:=b;end;
  if sc>sd then begin sd:=sc;d:=c;end;
  writeln('Ответ:',d);
end.

1) Поскольку один рабочий изготовил 50 деталей, а другой на 10 деталей меньше, то для того чтобы узнать сколько деталей изготовил второй рабочие, нужно от количества деталий которое изготовил первый рабочий отнять десять деталей: 50 - 10 = 40 деталей изготовил второй рабочий. 2) Узнаем сколько вместе деталей изготовили рабочие, для этого сложим количество деталей, которое изготовил первый рабочий с количеством деталей, которое изготовил второй рабочий: 40 + 50 = 90 деталей. 3) Поскольку все изготовленные детали разложили поровну в три ящика, то в каждый ящик положили по 90/3 = 30 деталей. Ответ: в каждый ящик положили по 30 деталей.

Так как участников 7 и сыграли они по одной партии, то каждый с каждым может сыграть 6 партий: 7*6 = 42. Для того чтобы избежать пересечения партий, разделим полученный результат на 2: 42/2 = 21. Ответ: в турнире состоялась 21 партия Так как участников 7 и сыграли они по одной партии, то каждый с каждым может сыграть 6 партий: 7*6 = 42. Для того чтобы избежать пересечения партий, разделим полученный результат на 2: 42/2 = 21. Ответ: в турнире состоялась 21 партия

1участник 6партий
2й участник +5
3й +4
4й +3
5й +2
6й +1
итого 21 партия