Переписать строки файла в новый в обратном порядке

const
  //Глубина стека. Т. е. максимальное количество элементов,
  //которое может поместиться в стек.
  //255 - т. к., мы будем работать со строками, а в Pascal максимальная длина
  //строки = 2^8 - 1 = 256 - 1 = 255.
  N = 255;
 
type
  //Тип, описывающий стек.
  TStack = record
    //Указатель вершины стека. Это индекс последнего добавленного элемента.
    Pnt : Integer;
    //Контейнер данных стека.
    Data : array[1..N] of Char;
  end;
 
//Инициализация стека (обнуление стека).
procedure StackPush(var aStack : TStack);
begin
  aStack.Pnt := 0;
end;
 
//Добавить элемент на вершину стека.
function StackPush(var aStack : TStack; const aCh : Char) : Boolean;
begin
  StackPush := False;
  with aStack do begin
    if Pnt < High(Data) then begin
      //Индекс добавляемого элемента.
      Inc(Pnt);
      //Добавляем элемент в массив (т. е. в стек).
      Data[Pnt] := aCh;
      StackPush := True;
    end;
  end;
end;
 
//Взять элемент с вершины стека.
function StackPop(var aStack : TStack; var aCh : Char) : Boolean;
begin
  StackPop := False;
  with aStack do begin
    if Pnt >= Low(Data) then begin
      aCh := Data[Pnt];
      Dec(Pnt);
      StackPop := True;
    end;
  end;
end;

type
  TPElem = ^TElem;
  TElem = record
    Data : Char;
    PNext : TPElem;
  end;
 
//Добавить элемент на вершину стека.
procedure StPush(var aPStack, aPElem : TPElem);
begin
  if aPElem = nil then Exit;
  aPElem^.PNext := aPStack;
  aPStack := aPElem
end;
 
//Взять элемент с вершины стека.
function StPop(var aPStack, aPElem : TPElem) : Boolean;
begin
  Result := False;
  if aPStack = nil then Exit;
  aPElem := aPStack;
  aPStack := aPElem^.PNext;
  Result := True;
end;
 
//Удаление стека из памяти.
procedure StFree(var aPStack : TPElem);
var
  PDel : TPElem;
begin
  while aPStack <> nil do begin
    PDel := aPStack;
    aPStack := aPStack^.PNext;
    Dispose(PDel);
  end;
end;

Type
    adr = ^zveno;
  zveno = record
          element: string;
          adrcled: adr
        end;
Procedure Zanes (Var St: Stek; El:string); 
 Var  
  Q: Adres1; 
 Begin 
{1} New (Q); 
{2}  Q^.Element := El; 
{3}  Q^.Adrcled := St; 
{4}  St := Q 
End; 
Procedure Vibor (Var St: Stek; Var A: string);  {Будете использовать эту процедуру,\
 покуда не закончаться элементы в стеке }
Var  
  Q: Adres1; 
 Begin 
{1}  A := St^.Element; 
{2}  Q := St; 
{3}  St := St^.Adrcled; 
{4}  Dispose (Q) 
End;