Сортировка очереди. Ошибка

[ivi1]

Здравствуйте, написал программу. Первые 2 процедуры выполняются отлично, но вот при сортировке элементов, расположенных после первого положительного элемента, выскакивает ошибка: Program3.pas(92) : Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта.

Что неверно? Где ошибка?

Вот мой код:
http://pastebin.com/PtKwa9Qk

Начало ошибки здесь: if(first^.Value > 0)

[FPaul]

Смотри. Ещё до сортировки
1. Необоснованные глобальные переменные.
2. Нет процедуры очистки списка.
3. Нет процедуры печати списка на экран.

Почему я это перечислил.
1. Пока не вдаваясь в сортировку, у меня возникло стойкое ощущение некорректности ввода списка (spisok). Проверить который, можно лишь распечатав его.
2. Очистка памяти нужна.

Некорректность заключается в использовании глобальных переменных и в том, что при вводе нового элемента делают примерно так

  new(tmp);
  tmp^.Value:=v;
  tmp^.Next:=nil;
  {определение - куда пристроить этот элемент}
  if First=nil then
  ....
  else
  ...

Если хочешь в конец списка - то держи ещё одну переменную.
Т.е. у тебя последний элемент списка указывает в "космос".
Проверка конца списка делается не по 0-му значению элемента, а по указателю, равному nil.
Раз указатель не равен nil, то в дальнейшем коде и возникают ошибки.