if arr[i] > arr[i+1] then begin
p := arr[j];
arr[i] := arr[i+1];
arr[i+1] := p
//Может здесь ошибка? переменная "p" не участвует ни в какой операции, то есть мы можем её взять как буфер, чтобы совершить обмен между елементами в массиве, если её тип переменной конечно же сперва изменить на "integer".
