Задача с использованием списка Опции

[ruVdim]

Задание: Вводится последовательность целых чисел(по одному). Используя список, найти среднее двух соседних чисел. Организовать новый список в котором расположить средние по неубыванию. Распечатать списки.

uses crt;
type
  plist = ^tlist;
  tlist = record
    info: integer;
    link: plist;
  end;
var
  first1, posl1 : plist;

procedure print(p: plist);
begin
  while p <> nil do begin
    write(p^.info:5);
    p := p^.link
  end;
  writeln;
end;

procedure vvod (var first, last: plist);
var
  s: integer;
  p: plist;
begin

  last := first;
  repeat
    write('Vvedite sled element: '); readln(s);
    if s <> 25 then begin
      new(p);
      p^.info := s;
      p^.link := nil;

      if first = nil then first := p
      else last^.link := p;
      last := p;
    end;
  until s = 25;

end;

var
  ii, jj, nmin: plist;
  T: integer;

begin
  clrscr;
  writeln('Perviy spisok:');
  first1:=nil; vvod (first1, posl1);
  print(first1);

  { Sortirovka }
  ii := first1;
  while ii^.link <> nil do begin
    nmin := ii;

    jj := ii^.link;
    while jj <> nil do begin
      if jj^.info < nmin^.info then nmin := jj;
      jj := jj^.link;
    end;

    T := ii^.info;
    ii^.info := nmin^.info;
    nmin^.info := T;

    ii := ii^.link;
  end;
  writeln('Otsort spisok:');
  print(first1);

end.

.
Я создал список, затем нужно только вычислить средние ариф. соседних чисел (отсортировал полученный). Помогите пожалуйста.
Заранее спасибо..

[ruVdim]

Просмотрев программу, он, позже, отметил:"Ошибка в процедуре append"

Добавлено через 7 мин.
Вообщем надо сделать просто так, чтобы чтение первого списка и запись его в другой проходило с хвоста (в текущем положении указателя) к голове.

[ruVdim]

Просмотрев программу, он, позже, отметил:"Ошибка в процедуре append"

Добавлено через 7 мин.
Вообщем надо сделать просто так, чтобы чтение первого списка и запись его в другой проходило с хвоста (в текущем положении указателя) к голове.

Помогите пожалуйста