Неправильно сортирует

const n=20;
var
F:array[1..n] of byte;
i,k,j,c,m:integer;
flag:boolean;
begin
  Writeln('Исходный массив F[20]');
  for i:=1 to n do begin
                      F[i]:=random(256);
                      write(F[i]:5);
                      end;
 c:=0;
 m:=0;
 for i:=1 to n-1 do begin
                       flag:=false;
                      for j:=1 to n-i do begin
                                            inc(c);//кол-во сравнений
                                            if F[j]>F[j+1] then begin
                                                                    inc(m);//кол-во обменов
                                                                    k:=F[j];
                                                                    F[j]:=F[j+1];
                                                                    F[j+1]:=k;
                                                                    flag:=true;
                                                                 end;
                                          If not flag then break;
                                          end;
                    end;
writeln;
writeln('Пузырьковый метод сортировки');
Writeln('Отсортированный массив');
for i:=1 to n do write(F[i]:5);
writeln;
writeln('Количество сравнений=',c);
Writeln('Количество обменов=',m);
end.