50 раутов! Составить разветляющейся метод. Дано трехзначное число. Определить: - какая

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a,b,c:integer; // числа числа n = abc
  var (i,j,k):=(1,2,3); // места цифр a,b,c, расположенных по неубыванию
  var s1:array[1..3] of string:=('1-ая','2-ая','3-я');
  var s2:array[1..3] of string:=('первой','второй','третьей');
  a:=n div 100;
  b:=(n div 10) mod 10;
  c:=n mod 10;
  // сортировка по неубыванию
  if agt;b then begin Swap(a,b); Swap(i,j) end;
  if bgt;c then begin
    Swap(b,c); Swap(j,k);
    if agt;b then begin Swap(a,b); Swap(i,j) end
    end;
  if cgt;b then Writeln(s1[k],' цифра больше других')
  else
    if bgt;a then Writeln(s1[j],' и ',s1[k],' числа больше ',s2[i])
    else Writeln('Все три цифры одинаковы')
end.

Образцы
n= 638
3-я цифра больше других

n= 583
2-ая цифра больше остальных

n= 707
1-ая и 3-я числа больше второй

n= 444
Все три числа схожи