Сортировка файла обменной сортировкой
Как сортировать файл обменной сортировой?
procedure SortFileObmen; Var i,j,a1,a2:integer; begin Assign(f,'temp.txt'); Reset(f); for j:=1 to m do for i:=1 to m-1 do begin seek(f,i-1); Read(f,a1); Read(f,a2); If a1>a2 Then begin seek(f,i-1); Write(f,a2); Write(f,a1); end; end; close(f); vivod; end;
