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

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; end; end.

Type
  arrdin = array[1..40] of integer;
Var
  row: ^arrdin;
  n, k: integer;
  count : integer;
begin
  randomize;
  n:=random(40)+1;
  getmem(row,n*sizeof(integer));
  for k:=1 to n do
  Begin
    row^[k]:=-100 + random(201); write(row^[k],',')
  End;
  writeln;
 
  count := 0;
  for k := 1 to n div 2 do
    if row^[2*k] < 0 then inc(count);
  writeln('count = ', count);
 
  freemem(row);
end.