Для динамического массива подсчитать количество его отрицательных элементов с четным порядковым номером

uses crt;
var a:array of integer;
    n,i,k:integer;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
setlength(a,n);
for i:=0 to n-1 do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n-1 do
if (a[i]<0)and odd(i) then k:=k+1;
write('Количество отрицательных элементов с четными номерами=',k);
readln
end.

Type arrdin = array[1..40] of integer; {40–максимальное количество элементов}
Var  arrmax: array[1..10] of integer; 
     row: ^arrdin;                                 {исходный массив}
     n, i, j, k: integer;
begin
  randomize;
  for i:=1 to 10 do 
  Begin
    n:=random(40)+1;
    getmem(row,n*sizeof(integer));
    for k:=1 to n do             {формирование массива и вывод его на экран}
    Begin
      row^[k]:=random(100); write(row^[k],',') 
    End; Writeln;
    arrmax[i]:=row^[1];   {поиск максимального элемента и запись его в массив}
    for k:=2 to n do
     if row^[k]>arrmax[i] then arrmax[i]:=row^[k];
    freemem(row,n*sizeof(integer));
  end;
  for i:=1 to 10 do write(arrmax[i],' ');          {вывод результата}
  Writeln
end.