Нужно сделать номера 2 и 3 в программе Excel

// PascalABC.Net 3.0, сборка 1076
var
  s,ss:string;
  i,n,p:integer;
begin
  Write('Введите строку: '); Readln(s);
  n:=Length(s); p:=Pos(',',s);
  if p in [1..n-1] then begin
    ss:=Copy(s,p+1,n-p);
    n:=Length(ss); p:=Pos(',',ss);
    if p=0 then Writeln(ss)
    else Writeln(Copy(ss,1,p-1))
    end
  else Writeln('*** Нечего выводить ***')
end.
     
Тестовые решения:
Введите строку: 01234,45679,1011213,14151617
45679

Введите строку: 01234,45679101121314151617
45679101121314151617

Введите строку: 01234,
*** Нечего выводить ***

Из чего что получается, при пробежке от 100 до 999
[184, 129]
[275, 129]
[366, 129]
[390, 129]
[399, 1812]
[457, 129]
[481, 129]
[548, 129]
[572, 129]
[639, 129]
[663, 129]
[754, 129]
[845, 129]
[920, 112]
[930, 123]
[936, 129]
[993, 1812]

Общее кол-во
{129=>13, 123=>1, 1218=>0, 1812=>2, 312=>0, 912=>0, 112=>1}

ответ 4 числа

Код
def Avtomat2(chislo)
    return 0 if !chislo.between?(100, 999)

    s = chislo.to_s
    a = s[0].to_i + s[1].to_i
    b = s[1].to_i + s[2].to_i
    s = [a, b].max.to_s + [a, b].min.to_s

    return s.to_i
end

def zadanie(min, max, numbers)
    b = Hash.new
    numbers.each do |w|
        b.store(w, 0)
    end

    for i in min..max
        r = Avtomat2(i)
        if numbers.include?(r)
            p [i,r]
            b[r] += 1
        end
    end
    return b
end

# # # Примеры применения
p zadanie(100, 999, [129, 123, 1218, 1812, 312, 912, 112])