Проблема с массивом !!!

[drylozav]

Народ скажите а как найти первый положительный и последний отрицательный элемент в динамическом массиве , с разным количеством элементов в строке ??? Вот код :

procedure TForm1.Button1Click(Sender: TObject);
var
a:textfile;
str:string;
begin
if opendialog1.Execute then
assignfile(a,opendialog1.FileName);
reset(a);
memo1.Lines.Clear;
while not eoln(a)  do begin
 readln(a,str);
 memo1.Lines.Add(str);
end;
closefile(a);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
b:array of array of integer;
i,j:integer;
str:string;
begin
for i:=0 to length(str) do
for j:=0 to length(str) do begin
   if (b[i,j]>0) then edit1.Text:=inttostr(b[i,j]);

и вот на этом месте прога не работает ! просто зависает и все !

[Don Karleone]

цикл поиска первого положительного элемента (точнее его индекса i в массиве):

i:=-1;
flag:=false;
while (i < High(Mas)) and not flag do
  begin
    Inc(i);
    if Mas[i] >= 0 then flag:=true;
end;
// if flag then найден индекс положительного элемента
            else такого элемента в массиве нет

цикл поиска индекса последнего отрицательного элемента:

i:=Length(Mas);
flag:=false;
while (i > 0) and not flag do
  begin
    Dec(i);
    if Mas[i] < 0 then flag:=true;
end;
// if flag then найден индекс отрицательного элемента
            else такого элемента в массиве нет

[drylozav]

извините но забыл сказать , что массив у меня двумерный

[Don Karleone]

тебе надо найти эти элементы для каждой строки??

[drylozav]

не , для всего массива в целом . просто из за того , что в этом массиве разное количество элементов в строке , я не могу понять как это делать .

[Don Karleone]

покажи как описан динамический массив и как ты его создаешь.

[drylozav]

я его создаю в файле . вот пример
6 -2 1 43
-1 5
5 4 2 18 13
5
-4 -4
это мой массив . он динамический , то есть массив может быть перезаписан иначе . из файла я его считываю с помощью eoln , то есть построчно .и вот мне нужно найти первый положительный и последний отрицательный .

[Don Karleone]

я так понял ты его считываешь вначале в компонент memo1?

[drylozav]

да , просто это необходимо по условию задачи

[Don Karleone]

А тут d: array of array of integer ты объявляешь этот самый динамический массив?