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

Uses Crt;
Type spis=^tspis;
     tspis=Record
      data:real;
      next:spis;
     End;
Var l,hv,tmp:spis;
    n,i,k:integer;
    m:real;
Procedure Add(Var u,hv:spis;n:real); 
Var x:spis;
Begin
    if u=nil then
    Begin
      New(u);
      U^.next:=nil;
      u^.data:=n;
      hv:=u;
    End
    else 
    Begin
      New(x);
      x^.data:=n;
      x^.next:=nil;
      hv^.next:=x;
      hv:=x;
    End;
End;
Procedure OutPut(u:spis);
Var tmp:spis;
Begin
    if u=nil then 
    Begin
      writeln('Spisok pust!');
      Exit;
    End;
    tmp:=u;
    While tmp<>nil do 
    Begin
      write(tmp^.data,' ');
      tmp:=tmp^.next;
    End;
    writeln;
End;
Procedure Free(Var u:spis); 
Var tmp:spis;
Begin
    //пока не конец списка
    While u<>nil do
    Begin
      tmp:=u;//запоминаем значени u
      u:=u^.next;//переходим к следующему элементу
      Dispose(tmp);//освобождаем память
    End;
End;
Begin
    ClrScr;
    Repeat
     write('Введите количество элементов списка L: ');readln(n);
    Until n>0;
    writeln('Введите ',n,' чисел');
    For i:=1 to n do
    Begin
      read(m);//вводим число
      Add(l,hv,m);//добавляем его в список L
    End;
    tmp:=l;k:=0;i:=1;
    While tmp<>nil do
    Begin
      if (tmp^.data>0)and(i mod 2 = 0) then inc(k);
      tmp:=tmp^.next;
      inc(i);
    End;
    writeln('Количество элементов удовлетворяющих условию = ',k);
    Free(l);
End.