проблема с поиском первого положительного элемента столбца матрицы вещ-х чисел

[Vse Strogo]

ищу первый положит. элемент первого столбца компонента STRINGGRID.
bi:=0;
if a[1,j]<=bi then j:=j+1
else strngrd2.cells[1,1]:=FloatToStr(a[1,j])

этот код работает только если первое значение положительное.

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