Не могу понять почему не идет сортировка файла, помогите пожалуйста

[Taisja]

Сортировка файла с возвратом на один шаг после обмена.
Просматривают файл до тех пор, пока не обнаружится, что первый элемент пары больше второго. В этом случае элементы пары меняются местами, и просмотр продолжают с предыдущего (обработанного на предыдущем шаге) элемента файла. Сортировку завершают, когда файл просмотрен до конца.


procedure TForm1.Button1Click(Sender: TObject);
var
f:file of integer;
a,b,i,n,t,k:integer;
begin
assignfile(f,'1.txt');
n:=strtoint(edit1.text);
rewrite(f);
for i:=1 to n do
begin t:=Random(100);
write(f,t);
memo1.Lines.Add(inttostr(t));
end;
closefile(f);
k:=0;
for i:=1 to n-1 do
reset(f);
while not eof(f) or (k<n-2) do
begin
read(f,a);
read(f,b);
if a>b then begin
seek(f,(filepos(f))-2);
write(f,b);
write(f,a);
seek(f,(filepos(f))-1);
k:=k+1;
end;
end; closefile(f);
end;

reset(f);
while not eof(f) do
begin
read(f,a);
memo2.Lines.Add(inttostr(a));
end;
end;

end.

[alexBlack]

Сообщение от Taisja

Сортировка файла с возвратом на один шаг после обмена.

Этот Ваш вариант ближе к описанному алгоритму, но не совсем то.

procedure TForm1.Button1Click(Sender: TObject);
var f:file of integer;
    pos, a, b, i, n, t:integer;
    S:STring;
begin
   Memo1.lines.clear;
   assignfile(f,'1.txt');
   n := 9; //n := strtoint(edit1.text);
   rewrite(f);
   S := '';
   for i:=1 to n do begin
      t:=Random(100);
      write(f,t);
      S := S + inttostr(t) + ' '
   end;
   memo1.Lines.Add(S);

   seek(f, 0);
   while filepos(f) <= N-2 do begin
      read(f,a);
      read(f,b);
      seek(f, filepos(f)-1); // Следующая пара чисел
      if a > b then begin
         // на позицию назад для записи
         seek(f, filepos(f)-1);
         write(f,b);
         write(f,a);
         // к предыдущей паре
         pos := filepos(f)-3;
         if pos < 0 then pos := 0;
         seek(f, pos);
         continue;
      end;
   end;
   closefile(f);

   assignfile(f,'1.txt');
   reset(f);
   S := '';
   while not eof(f) do begin
      read(f,a);
      S := S + intToStr(a) + ' ';
   end;
   memo2.Lines.Add(S);
end;

[Taisja]

Огромнейшее СПАСИБО!!! Вы меня спасли.