Создание функции для работы с динамическим массивом

[papoose]

Нужно написать функцию, которая, зная значение минимального элемента в двум. массиве 5x5, запишет индексы элементов равных минимальному в отдельный динамически созд. одном. массив и вернет указатель на него. Индексы заносятся в одном. массив подряд.

Вот мой код
ntype = array [1..25] of ^integer;
ind: ntype;
самая функция
...
y:=1;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if x[i][j]=min then begin
New(ind[y]); ind[y]^:=i; inc(y);
New(ind[y]); ind[y]^:=j; inc(y);
end; end; end;
врзвращ. знач:=ind;
В спец. созд. массиве где лишь один элемент равен миним. программа записывает две верных индекса. а в третий записывает какую то чушь. с чем это может быть связано?

[Stilet]

Ну во-первых: Это на паскале нужно или можно на Делфи?
Во-вторых: Тебе нужна структура типа такой:

mrec=^rec
Rec=record
 Last,Next:mrec;
 Min:integer;
end;
var FirstRec,CurrentRec:mrec

А далее типа такого:

if x[i][j]=min then begin
 new(CurrentRec.Next);
 CurrentRec:=CurrentRec.Next;
 CurrentRec.min:=x[i,j];
end;

Вроде такого набьеш кучу, не забудь отдельно сохранить указатель на первый элемент кучи (FirstRec), а далее в цикле уж по ней проходи.

[papoose]

Хотя в принципе сделаю со списком. Но тему пожалуйста не закрывайте/удаляйте, она завтра может опять понадобится ))