Sumor

Попробуйте ещё установить Left и Top

Form2.Left := Screen.DesktopLeft;
Form2.Top := Screen.DesktopTop;

Можно просто влоб:

b:= (b and $80 shr 7) or (b and $40 shr 5) or (b and $20 shr 3) or (b and $10 shr 1) or 
    (b and $08 shl 1) or (b and $04 shl 3) or (b and $02 shl 5) or (b and $01 shl 7);

Forvard declaration классов.

TUniversity = class;

TFaculty = class
private
public
  university : TUniversity;
end;

TUniversity = class
private

public 
    faculties : array of TFaculty;
end;

Это потому, что вы закрыли документ, но не закрыли ворд.
Для закрытия ворда нужно ему дать команду Quit.

Вы путаетесь с началом и концом массивов.
В паскале принято нумеровать элементы массивов с 1. SetLength создаёт массив, который нумеруется с 0.
У вас есть цикл где вы читаете с 0 — проверьте всегда ли правильно вы указываете нижнюю границу массива.
Для универсальности нужно применять функции High и Low, которые указывают нижний и верхний элементы массива:

For i := Low(Arr) to High(Arr) do
Begin
    write(Arr[i]:4);
End;

Дальше конечно много ещё замечаний к стилю и к коду.
Например, в задании сказано, что n<=300, а вы проверяете n<300. Есть места, где вы лишний раз инициализируете переменные.
В целом, задание не просто на программирование, а на алгоритмы.
Ваш способ работающий, но сильно не оптимальный. Например, для решения задачи достаточно просто приписать массив B в конец массива A, а затем всё отсортировать.
Задание в такой постановке как-бы намекает на изучение алгоритма сортировки слиянием.

Можно использовать такую конструкцию до объявления классов:
using MyInt = System.Int32;
Или, если класс не запечатанный(sealed), можно от него отнаследоваться:
public class MyIntList : List<int>{}