Метод Шейкера, обнуляет максимальный элемент, почему?

[leshij]

до N-1 всеровно не работал...
но всё уже проблема решенна..
Вот может кому пригодится..рабочий метод Шейкера

 procedure SheikerSort(var A: array of integer; var N: integer; var S, P: integer);
var
  last, l, r, i: integer;
begin
  last:= N;
  l:= 0;
  r:= N-1;
  S:=0;
  P:=0;
  while l < r do
  begin
    for i:= r downto 1 do
    begin
      inc(S);
      if A[i] < A[i-1] then
      begin
        change(A[i-1], A[i]);
        last:= i;
        inc(P);
      end;
    end;
    l:= last;   
    for i:= 1 to r do
    begin
      inc(S);
      if A[i] < A[i-1] then
      begin
        change(A[i-1], A[i]);
        last:= i;
        inc(P);
      end;
    end;
    r:= last;  
  end;
end;