//подпрограмма поиска максимального из всех двухзначных чисел в строке
program CalcMaxInString;

function CalcMax(s: string): integer;
begin
  var num, err: integer;
  var Max := 0;
  
  var i := 1;
  
  while i <= s.Length do
  begin
    if s[i] <> ' ' then
      for var j := i to s.Length do
        if (j = s.Length) or (s[j + 1] = ' ') then
        begin
          Val(Copy(s, i, j - i + 1), num, err);
          if (err = 0) and (num.InRange(10, 99)) then
            if Max < num then Max := num;
          i := j;
          break
        end;
    i += 1
  end;
  
  result := Max;
end;

begin
  var s: string := ' Hello World! 11 2 4 8 16 32 64 12 128 256 512    ';
  
  var Max := CalcMax(s);
  
  Write($'Max = {Max}')
end.