Определить сумму элементов, стоящих между максимальным и минимальным элементами списка

type
  node = record
    v : real;
    next : ^node;
  end;
 
var
  f : file of real;
  i, imin, imax : integer;
  r, s : real;
  head, tail, p, min, max : ^node;
 
begin
  // пишем 10 значений в файл (можешь запросить у пользователя, сколько ему нужно)
  assign(f, 'myfile.dat');
  rewrite(f);
  for i := 1 to 10 do
  begin
    write(i:2, ' -> '); readln(r);
    write(f, r);
  end;
 
  // переоткрываем файл на чтение, и заносим все его содержимое в список
  reset(f);
  head := nil; tail := nil;
  while not eof(f) do
  begin
    read(f, r);
    new(p);
    p^.v := r;
    p^.next := nil;
    if head <> nil then tail^.next := p
    else head := p;
    tail := p;
  end;
  close(f);
 
  // находим минимум и максимум в списке
  p := head;
  min := head; max := head;
  i := 1;
  while p <> nil do
  begin
    if p^.v > max^.v then begin max := p; imax := i end;
    if p^.v < min^.v then begin min := p; imin := i end;
    p := p^.next; inc(i);
  end;
 
  // находим сумму элементов между минимумом и максимумом включительно
  if imax < imin then p := max else p := min;
  s := 0;
  for i := 1 to abs(imax - imin) + 1 do
  begin
    s := s + p^.v;
    p := p^.next;
  end;
  writeln('s = ', s:6:2);
 
  // освобождаем память из-под списка
  while head <> nil do
  begin
    p := head;
    head := head^.next;
    dispose(p)
  end;
 
  readln;
end.