Сформировать два массива содержащих n элементов.Отсортиропять первые по возрастанию,а второй по убывания.Вывести на экран.З атем первый массив просумировать со вторым,а из второго вычесть первый

uses crt; const n = 100; var a: array [1..n] of integer; b: array [1..n] of integer; i, j, m: byte; p1, p2: integer; begin write('Количество элементов: '); readln(m); clrscr; writeln('Ввод массива A'); writeln; for i:=1 to m do    begin    write('A[',i,']: '); readln(a[i]);    end; clrscr; writeln('Ввод массива B'); writeln; for i:=1 to m do    begin    write('B[', i, ']: '); readln(b[i]);    end; clrscr; writeln; writeln('Исходный массив А:'); for i:=1 to m do write(a[i]:4); writeln; writeln; writeln('Исходный массив B:'); for i:=1 to m do write(b[i]:4); for i:=1 to m-1 do for j:=m downto i do begin if a[i] > a[j] then begin p1:=a[i]; a[i]:=a[j]; a[j]:=p1; end; if b[j] > b[i] then begin p2:=b[i]; b[i]:=b[j]; b[j]:=p2; end; end; writeln; writeln; writeln('Массив А по возрастанию:'); for i:=1 to m do write(a[i]:4); writeln; writeln; writeln('Массив B по убыванию:'); for i:=1 to m do write(b[i]:4); writeln; writeln; writeln('Массив A+B:'); for i:=1 to m do begin  a[i]:=a[i]+b[i];  write(a[i]:4);  a[i]:=a[i]-b[i]; end; writeln; writeln; writeln('Массив B-A:'); for i:=1 to m do begin  b[i]:=b[i]-a[i];  write(b[i]:4); end; readln; end.