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

Конечно. Расположение описаний влияет на область видимости описанного - и только.

Это не сайт проглатывает, а Г_угл Хром.

Если писать из FireFox - не глотает

Однако на других форумах ничего не проглатывает)

Да, я же и написал - так этот ресурс "понимает" переданное из упомянутых браузеров.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016function 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    endend;begin  var n1,n2:integer;  Write('Введите через пробел два натуральных числа: ');  Read(n1,n2);  Writeln('s=',MaxDigit(n1)+MaxDigit(n2))end.Тестовое решениеВведите через пробел два натуральных числа: 53252 4654083s=13

function MaxDigit(n: integer): integer;var max: integer;begin  max := 0;  while n > 0 do  begin    if n mod 10 > max then max := n mod 10;    n := n div 10;  end;  MaxDigit := max;end;var a, b: integer;begin  read(a, b);  write(MaxDigit(a) + MaxDigit(b));end.