Выручайте! Есть программа! Нужно отредактировать

program Project1;
 
type
  //Перечисляемый тип.
  //Num0 = 0, ..., Num5 = 5.
  TData = (Num0, Num1, Num2, Num3, Num4, Num5);
 
  //Указатель на элемент стека.
  TPElem = ^TElem;
  //Элемент стека.
  TElem = record
    Data : TData;
    PNext : TPElem;
  end;
 
//Добавление элемента на вершину стека.
procedure StackPush(var aPStack, aPElem : TPElem);
begin
  if aPElem = nil then Exit;
  aPElem^.PNext := aPStack;
  aPStack := aPElem
end;
 
//Изъятие элемента с вершины стека.
function StackPop(var aPStack, aPElem : TPElem) : Boolean;
begin
  Result := False;
  if aPStack = nil then Exit;
  aPElem := aPStack;
  aPStack := aPElem^.PNext;
  Result := True;
end;
 
//Удаление стека из памяти (очистка стека).
procedure StackFree(var aPStack : TPElem);
var
  PDel : TPElem;
begin
  while aPStack <> nil do begin
    PDel := aPStack;
    aPStack := aPStack^.PNext;
    Dispose(PDel);
  end;
end;
 
const
  //Глубина стека.
  M = 10;
  //Количество элементов, заданных в перечисляемом типе TData.
  N = 6;
var
  PSt1, PSt2, PElem, PElemF : TPElem;
  j : Word;
  S : String;
  i, Ind : Integer;
begin
  //Инициализация стеков.
  PSt1 := nil;
  PSt2 := nil;
 
  repeat
    if M < 2 then begin
      Writeln('Задана глубина стека: ', M);
      Writeln('Глубина стека должна быть больше, чем 2.');
      Readln;
      Exit;
    end;
 
    //Формируем содержимое первого стека.
    Randomize;
    for i := 1 to M do begin
      New(PElem);
      case (i - 1) mod 6 of
        0 : PElem^.Data := Num0;
        1 : PElem^.Data := Num1;
        2 : PElem^.Data := Num2;
        3 : PElem^.Data := Num3;
        4 : PElem^.Data := Num4;
        5 : PElem^.Data := Num5;
      end;
      StackPush(PSt1, PElem);
    end;
 
    //Распечатка и переливание из первого стека во второй стек.
    Writeln('Содержимое стека:');
    i := 0;
    while StackPop(PSt1, PElem) do begin
      Inc(i);
      StackPush(PSt2, PElem);
      if i > 1 then Write(', ');
      Write(i, ':');
      case PElem^.Data of
        Num0 : Write('Num0');
        Num1 : Write('Num1');
        Num2 : Write('Num2');
        Num3 : Write('Num3');
        Num4 : Write('Num4');
        Num5 : Write('Num5');
      end;
    end;
    Writeln;
    //Переливаем элементы из второго стека обратно - в первый стек.
    while StackPop(PSt2, PElem) do StackPush(PSt1, PElem);
 
    Writeln('Задайте индекс элемента, который надо переставить на второе место:');
    repeat
      Write('Индекс ', 1, '...', M, ': ');
      Readln(Ind);
    until (Ind >= 1) and (Ind <= M);
 
    case Ind of
      1 :
      begin
        //Чтение первого и второго элементов.
        StackPop(PSt1, PElemF);
        StackPop(PSt1, PElem);
        //Запись первого элемента.
        StackPush(PSt1, PElemF);
        //Запись второго элемента.
        StackPush(PSt1, PElem);
      end;
      2 : Writeln('Перестановка не требуется.');
      else begin
        //Переливаем (Ind - 1) элементов из первого стека во второй.
        //В результате этого, элемент, который был на вершине первого стека,
        //окажется на дне второго стека. А элемент с заданным индексом (Ind)
        //окажется на вершине первого стека.
        i := 0;
        j := Ind - 1;
        while i < j do begin
          Inc(i);
          StackPop(PSt1, PElem);
          StackPush(PSt2, PElem);
        end;
        //Берём с вершины первого стека искомый элемент.
        StackPop(PSt1, PElemF);
        //Теперь возвращаем из второго стека в первый стек все элементы, кроме
        //того, который лежит на дне второго стека.
        i := 0;
        j := Ind - 2;
        while i < j do begin
          Inc(i);
          StackPop(PSt2, PElem);
          StackPush(PSt1, PElem);
        end;
        //Добавляем в первый стек элемент, который мы запомнили.
        StackPush(PSt1, PElemF);
        //Возвращаем оставшийся элемент из второго стека в первый стек.
        StackPop(PSt2, PElem);
        StackPush(PSt1, PElem);
      end;
    end;
 
    //Распечатка элементов первого стека. При этом, первый стек очищается.
    Writeln('Содержимое стека:');
    i := 0;
    while StackPop(PSt1, PElem) do begin
      Inc(i);
      if i > 1 then Write(', ');
      Write(i, ':');
      case PElem^.Data of
        Num0 : Write('Num0');
        Num1 : Write('Num1');
        Num2 : Write('Num2');
        Num3 : Write('Num3');
        Num4 : Write('Num4');
        Num5 : Write('Num5');
      end;
    end;
    Writeln;
 
    //Удаление стеков из памяти.
    StackFree(PSt1);
    StackFree(PSt2);
    Writeln('Работа завершена. Стеки удалены из памяти.');
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
 
[size="1"][color="grey"][I]Добавлено через 7 минут[/I][/color][/size]
Для справки:
[B]Структура односвязного списка: "Стек"
Тип информационного поля: "Перечисляемый тип"
Перемещение найденного элемента: "на место за 1-ым элементом"[/B]
 
[size="1"][color="grey"][I]Добавлено через 9 минут[/I][/color][/size]
[B][COLOR="Blue"]Или как другой вариант![/COLOR]
Вот:
Текст основной программы:[/B]
program poisk;
Uses steck;
begin
  create;
  write('Введите число ');
  read(r2);
  p := BegQ;
  if begQ^.r > r2 then
  begin
  write(BegQ^.r);
  Exit;
  end
  else
    repeat
      begin
        if p^.r > r2 then
        begin
          write(p^.r);
          exit;
        end;
        p := p^.link;
      end;
    until p^.link = nil;
end.
[B]Текст модуля: [/B]
unit steck;
interface
type
  data = ^dat;
  dat = record
    r: real;
    link: data;
  end;
var
  BegQ, p: data;
  var  r2: real;
implementation
procedure create;
var
  i, j: integer;
begin
  writeln('Введите количество элементов стэка');
  read(j);
  BegQ := nil;
  p := nil;
  for i := 1 to j do
  begin
    new(p);
    write('Введите элемент стека ');
    read(p^.r);
    if BegQ = nil then p^.link := begQ else p^.link := BegQ;
    BegQ := p;
    p:=nil;
  end;
end;
end.