Динамический массив

[Никита123]

Надо создать массив из отрицательных элементов введённого массива и их индексов. В своей программе я написал процедуру, которая должна создавать такой массив, в итоге программа не печатает массив в файл результатов, посмотрите, пожалуйста, что не так.
Вот код процедуры:

procedure T(b: pb; m , n: integer);
type
kk = array[1..100] of real;
var
D: ^kk;
K: integer;
begin
getmem(d, m*n*sizeof(real));
k:=1;
for i:=1 to m do begin
for j:=1 to n do
if i mod 2 = 0 then begin
if B^[(i-1)*n+j] < 0 then begin
D^[k]:=B^[(i-1)*n+j];
D^[k+1]:=i;
D^[k+2]:=j;
write(' ', D^[k] :4 :0);
writeln; k:=k+1;
end;
end;
end;
end;

P. S. Есть процедуры ввода массива, поиска максимального значения, и процедура, которая меняет местами максимальный и минимальный элемент в массиве, все они нормально работают.