Напечатать в обратном порядке все числа между наибольшим и наименьшим числами последовательности

program Project9;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
System.SysUtils;
 
type tip = integer;
ptrSP = ^SP;
SP = record
zn: integer;
nx,pr: ptrSP;
end;
spis = ptrSP;
var l,be,x,Lmin,Lmax: spis;
f: text;
 
begin
Assign(F, 'D:\F.txt');
reset(f);
writeln('Вывод файла f:');
while not eof(f) do
begin
new(x);
x^.pr:=nil;
x^.nx:=nil;
read(f,x^.zn);
write(x^.zn:4);
if (be=nil) then be:=x
else x^.pr:=L;
L^.nx:=x;
x^.pr:=L;
L:=x;
end;
 
writeln;
writeln;
L:=be;
Lmin:=be;
Lmax:=be;
while L<>nil do
begin
if L^.znLmax^.zn then Lmax:=L;
L:=L^.nx;
end;
L:=Lmax^.pr;
writeln('Вывод чисел в обратном порядке между наибольшим и наименьшим:');
while L<>Lmin do
begin
write(L^.zn:4);
L:=L^.pr;
end;
writeln;
readln;
close(f);
end.

  while not eof(f) do
  begin
    new(x);
    x^.pr := L; // в любом случае предыдущий для нового элемента - это L, то есть, последний на настоящий момент
    x^.nx := nil; // следующий - всегда nil, потому как элемент добавляется в конец списка
    read(f, x^.zn);
    write(x^.zn:4);
    if (be = nil) then be := x // если x - это первый элемент, и be еще = nil - то запомним первый элемент
    else L^.nx := x; // иначе сделаем связь от пока последнего к новому
    L := x; // ну, и запоминаем новый элемент как последний
  end;