Найти сумму максимальных цифр, использующихся в записи двух данных натуральных чисел. Нахождение максимальной цифры числа оформить в виде подпрограммы.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function MaxDigit(n:integer):integer;
begin
  Result:=0;
  while n>0 do begin
    var m:=n mod 10;
    if m>Result then result:=m;
    n:=n div 10
    end
end;

begin
  var n1,n2:integer;
  Write(Введите через пробел два натуральных числа: );
  Read(n1,n2);
  Writeln(s=,MaxDigit(n1)+MaxDigit(n2))
end.

Тестовое решение
Введите через пробел два натуральных числа: 53252 4654083
s=13