[Bargest]

Код:

for i:=0 to N do
 for j:=0 to N do
   if A[j]>A[j+1]
   then begin
   M:=A[j];
   A[j]:=A[j+1];
   A[j+1]:=M;
 
end;

При j = 4 A[j+1] = A[5], а такого элемента не существует. Странно что вообще сортируется.