Найти число элементов между минимальным элементом и максимальным элементом списка

Uses Crt;
Type List=^Node;
     Node=Record
      info:real;
      index: integer;
      next:List;
     End;
     
Var L: List; 
    i, n: integer;
 
procedure form(r: real; i: integer; var L: List);
  begin
    if L<>nil then form(r, i, L^.next)
    else begin new(L); L^.info:=r; L^.index:=i; L^.next:=nil end;
  end;  
    
procedure print(L: List);
  begin
    while L<>nil do begin
      if (L^.info>0) and (L^.index mod 2 = 0) then textcolor(12) else textcolor(15);   
      write(L^.info:8:1,'(',L^.index,')');
      L:=L^.next;
    end;
    writeln('<---');
  end;   
  
 function KolElem(L: List):integer;
  var k: integer;
  begin
    k:=0;
    while L<>nil do begin
      if (L^.info>0) and (L^.index mod 2 = 0) then k:=k+1;    
      L:=L^.next;
    end;
    KolElem:=k;
  end;
 
[size="1"][color="grey"][I]Добавлено через 2 минуты[/I][/color][/size]
Забыл, вот конец программы 
 begin    
    clrscr;
    write('Введите количество элементов списка L: ');readln(n);
    L:=nil;
    For i:=1 to n do form(20*random-10, i, L);//добавляем его в список L
    Print(L);
    writeln('Количество положительных элементов с четными индексами: ', KolElem(L));
  End.