Сортировка списка методом простого обмена

type
  spis = ^el;
  el  = record
    next: spis;
    data: integer;
  end;
 
// Добавление элемента в конец списка.
// head - "голова" списка (первый элемент), tail - "хвост" (последний элемент)
procedure append(value: integer; var head, tail: spis);
var
  p: spis;
begin
  new(p);
  p^.data := value;
  p^.next := nil;
  
  if head = nil then head := p
  else tail^.next := p;
  tail := p;
end;
 
procedure print(head: spis);
begin
  while head <> nil do
  begin
    write(head^.data:4);
    head := head^.next;
  end;
  writeln;
end;
 
// указатель на n -ый элемент списка
// list - указатель на первый элемент
function find_n(list: spis; n: integer): spis;
begin
  while (list <> nil) and (n > 0) do // просто проходим n элементов от начала
  begin
    list := list^.next; dec(n);
  end;
  find_n := list; // и возвращаем указатель на элемент, находящийся на n-ом месте
end;
 
// Это сам алгоритм "пузырька", то же самое, что для массивов, но у нас ведь список...
procedure BubbleList(var list: spis; n: integer);
var
  i, j, T: Integer;
  p_1, p_2: spis;
begin
  for i := 1 to n do
    for j := n downto i + 1 do
    begin
      // поэтому находим в списке элементы на позициях j - 1 и j, и сравниваем их
      p_1 := find_n(list, pred(j - 1)); p_2 := find_n(list, j - 1);
      // > или < в зависимости от направления
      if p_1^.data > p_2^.data then 
      begin // если предыдущий больше следующего - меняем местами содержимое поля data
        T := p_1^.data;
        p_1^.data := p_2^.data;
        p_2^.data := T;
      end;
    end;
end;
 
var
  h, t: spis;
  X, len: integer;
 
begin
  h := nil; t := nil;
  len := 0;
  repeat
    write('введите число (0 для завершения): '); readln(X);
    if X <> 0 then 
    begin
      Append(X, h, t);
      inc(len);
    end;
  until X = 0;
  print(h);
  
  BubbleList(h, len);
  
  print(h);
end.

begin
 
writeln('Свободно',MemAvail,' байт');//добавил вывод
 
  h := nil; t := nil;
  len := 0;
  repeat
    write('введите число (0 для завершения): '); readln(X);
    if X <> 0 then 
    begin
      Append(X, h, t);
      inc(len);
    end;
  until X = 0;
 
writeln('Свободно',MemAvail,' байт');//добавил вывод
 
  print(h);
  
  BubbleList(h, len);
  тут незнаю как посчитать ДРП (размер динамически распределяемой памяти) 
  print(h);
writeln('Свободно',MemAvail,' байт');//добавил вывод
end.