переупорядочение файла, с помощью списка Опции

[Svetlana]

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

procedure Upor (var tsl;f);
var           x,min:integer;
begin       repeat begin reset(f); min:=0; while not eof(f) do begin
                                  read(f,x); if x<min then min:=x end;

                                  in-list(p,min,q);
                                     
                                  reset(f); 
                                  while not eof(f) do begin
                                  read(f,x); if x<min then min:=x end;
                                  {здесь оператор(станд. процедура или функция),который удаляет найденное число}

                                                           end
             until filesize(f)<>nil
Close(f)
end;

Теперь поясню то,что я хотела этим сказать:1.Ищем в файле мин.число,включаем его в список
2.Удаляем из файла минимум
3.Опять ищем в файле минимум,включаем его в список и удаляем из файла...Получается цикл,который заканчивается,когда файл станет пустым.

Моя ошибка,на которую указал преподаватель в том,что я минимуму присваиваю 0. Т.е. я не предуссматриваю случаи с отрицательными числами.И вообще она не эффективная...Укажите на ошибки,пожалуйста,если они здесь ещё есть.И как можно было решить эту задачу по-другому?Очень интересно...

Сообщение отредактировано: Svetlana - 29.06.2009 16:10

[volvo]

Укажите на ошибки,пожалуйста,если они здесь ещё есть

1)

здесь оператор(станд. процедура или функция),который удаляет найденное число

Нет такой стандартной процедуры, чтобы из файла удалить число.

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

P.S.

filesize(f)<>nil

Это что? Вообще-то FileSize возвращает размер (число), а не указатель...

[Svetlana]

Спасибо! Но я не могу понять,ведь со списком допустимы только три операции:просмотр списка,добавление элемента и удаление одного элемента. Так как происходит переупорядочение в списке?Мне этого не понять.

P.S. Если заменить FileSize<>0 будет правильно?Я так думаю...