Вывести наибольшую разность чисел, 1ое из которых может быть получено перестановкой цифр a, а 2ое – перестановкой цифр b

var
  f1,f2: text;
  a,b: integer;
  fl1,fl2: boolean;
 
function SchemeInt(aA: integer; aFl: boolean): integer;
var
  s: string;
  i,j: integer;
  t: char;
begin
  SchemeInt:=0;
  str(aA,s);
  for i:=1 to length(s)-1 do
     for j:=1 to length(s)-i do
       if (aFl and (s[j]<s[j+1])) or (not aFl and (s[j]>s[j+1]) and not ((j+1=2) and (s[2]='0'))) then
         begin
           t:=s[j];
           s[j]:=s[j+1];
           s[j+1]:=t;
         end;
  val(s,i,j);
  if j=0 then SchemeInt:=i;
end;
 
begin
  assign(f1,'input.txt');
  assign(f2,'output.txt');
  reset(f1);
  readln(f1,a);
  readln(f1,b);
  close(f1);
  fl1:=a>0; a:=abs(a);
  fl2:=b<0; b:=abs(b);
  a:=SchemeInt(a,fl1); b:=SchemeInt(b,fl2);
  if not fl1 then a:=-a;
  if fl2 then b:=-b;
  rewrite(f2);
  writeln(f2,a-b);
  close(f2);
  readln
end.

13. str(aA,s);
16. if (aFl and (s[j]<s[j+1])) or (not aFl and (s[j]>s[j+1]) and not ((j+1=2) and (s[2]='0'))) then
22. val(s,i,j);
35. a:=SchemeInt(a,fl1); b:=SchemeInt(b,fl2);
36. if not fl1 then a:=-a;
37. if fl2 then b:=-b;

var
  f1,f2: text;
  a,b: integer;
  fl1,fl2: boolean; {условие сортировки; хранят знаки чисел}
  
function SchemeInt(aA: longint; aFl: boolean): integer;
var
  s: string;
  i,j: integer; {под всякие нужды}
  t: char; {для обмена значении}
begin
  SchemeInt:=0; {на случай ошибок в операторе val}
  str(aA,s); {преобразовываем число в строку}
    {Пузырьковая сортировка цифр числа: }
  for i:=1 to length(s)-1 do
     for j:=1 to length(s)-i do
     {not (j+1=2) and (s[2]='0') - проверка для того, чтобы при сортировке на убывания не переставить 0 на первую позицию
       aFl  - сортировка цифр по возрастанию, not aFl - по убыванию}
       if (aFl and (s[j]<s[j+1])) or (not aFl and (s[j]>s[j+1]) and not ((j+1=2) and (s[2]='0'))) then
         begin
          {обмен значении}
           t:=s[j];
           s[j]:=s[j+1];
           s[j+1]:=t;
         end;
  val(s,i,j); {преобразовываем полученную строку обратно в число}
  if j=0 then SchemeInt:=i; {если нет ошибок, присваиваем значение функции}
end;
 
begin
  {синхронизируем переменные с файлами}
  assign(f1,'input.txt');
  assign(f2,'output.txt');
  reset(f1); {открываем входной файл для чтения}
  readln(f1,a); readln(f1,b); {читаем числа из файла}
  close(f1); {закрываем файл}
  fl1:=a>0; fl2:=b<0; {в этих переменных хранится условие сортировки и знак числа.
  true для положительного a и отрицательного b (сортировка по возрастанию),
  false для отрицательного b и положительного a (сортировка по убыванию)}
  a:=abs(a); b:=abs(b); {убираем нолики. знаки лежат в булевых переменных}
  a:=SchemeInt(a,fl1); b:=SchemeInt(b,fl2); {сортируем цифры числа по условию}
  if not fl1 then a:=-a; if fl2 then b:=-b; {возвращаем знаки на место}
  rewrite(f2); {открываем для записи выходной файл}
  writeln(f2,a-b); {печатаем результат}
  close(f2); {и закрываем}
end.