Не весь код приводил. С определением массивов там все ок
LArr: array [1..4] of real;
AArr: array [1..4] of udint; - вот так определены;
потом заполняются
LArr[1]:=L1; LArr[2]:=L2; LArr[3]:=L3; LArr[4]:=L4;

AArr[1]:=1; AArr[2]:=2; AArr[3]:=3; AArr[4]:=4;

на а потом пузырьковая как правильно заметили.