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

[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 12:10

[Krjuger]

<> для меня означает все,что угодно кроме.....И для меня неубывание никак не попадает под это определение.

Ту последовательность,что ты дал...её же нельзя упорядочить по возрастанию?Так получается. Вот по неубыванию можно...

ее можно упорядочить по возрастанию,просто при совпадении элементов один из них просто не попадет в упорядоченную последовательность,тобиш получится 1,2,3,5,6,8,9.

Ведь можно просто переименновать,это же не проблема...

Это не является проблемой при исправлении,но это является ошибкой.Твоего преподавателя не будет интересовать почему не работает твоя программа,из за непоставленного ';' или из за неправилного алгоритма,ему важен результат.

Сообщение отредактировано: Krjuger - 29.06.2009 13:55