Паскаль Стек и сортировка

[MIKE11IPME]

В общем мне нужен любой пример сортировки в стеке (без использования файлов ,массивов) заранее спасибо !

[eoln]

Сортировать можно минимум двумя путями: сортировка указателей, сортировка информационной части. Вот второй вариант

type
  pe=^element;
  element=record
    ch: byte;
    prevrec: pe;
  end;
var
  current, last, cur2: pe;
  i: integer;
BEGIN
  //ввод
  last := nil;
  for i := 1 to 10 do begin 
    current := new(pe);
    current^.ch := random(10); write(current^.ch: 4);
    current^.prevrec := last;
    last := current
  end;
  //сортировка
  current := last;
  while current <> nil do begin
    cur2 := current^.prevrec;
    while cur2 <> nil do begin
      if cur2^.ch > current^.ch then begin
        i := current^.ch;
        current^.ch := cur2^.ch;
        cur2^.ch := i
      end;
      cur2 := cur2^.prevrec
    end;
    current := current^.prevrec
  end;
  //выход
  writeln;
  current := last;
  while current <> nil do begin
    write(current^.ch: 4);
    current:=current^.prevrec
  end;
  readln
END.