Помогите разобраться с сортировкой файла

[Taisja]

Я написала сортировку файла, это "пузырек", вот только не знаю, с ограничением или нет. Подскажите, пожалуйста.
Формулировка:
При каждом просмотре элементов файла первый элемент сравнивают со вторым и меньший ставят на первое место. Второй элемент сравнивают с третьим и меньший ставят на второе место. Эта процедура продолжается до тех пор, пока не будет обработан весь файл. Затем совершают второй, третий и т.д. просмотры, пока во время просмотра не будет проведено ни одной перестановки. Элементы файла будут отсортированы по возрастанию.
Получилось так:

 repeat
    Ch:= FALSE;
     for k := 1 to n-1 do begin
  seek(f,0);
 For i:=1 to n-k do begin
  m:=filepos(f);
  read(f,a);
  t:=filepos(f);
  read(f,b);
  if a>b then
		    begin seek(f,m); write(f,b);
			  write(f,a);
        ch:=TRUE;
         end;
		  seek(f,t);
	    end;
      end;
      until
    not ch;