Мин элемент из поддиагональных

[Foxx]

Добрый день! Требуется найти x[i], как минимальный элемент из поддиагональных элементов n-i+1 столбца. Загвостка в том, что нужно найти из поддиагональынх элментов. Матрица пусть 3 на 3. Если рассмативаем x[1], то получаем мин из поддиагональных 3 столбца. А ведь элементов нет, и получается что минимальный равен переменной max. Как довести до ума, чтобы если не было, то было 0. А так выходит такой результат:
Vector X
2147483647.000 0.500 1.000
Нужен такой: 0 0.500 1.000

procedure part2(n:integer; a:matr; var x:vect);
var i,j:integer;
    min:real;
begin
   for i:=1 to n do
    begin
    min:=maxint;
    for j:=n-i+2 to n do
     if a[j,n-i+1]<min then min:=a[j,n-i+1];
    x[i]:=min;
    end;
end;

Кроме того варианта, есть ли другие:

procedure part2(n:integer; a:matr; var x:vect);
var i,j:integer;
    min:real;
begin
   for i:=1 to n do
    begin
    min:=maxint;
    for j:=n-i+2 to n do
     if n-i+2>n then min:=0;
     if a[j,n-i+1]<min then min:=a[j,n-i+1];
    x[i]:=min;
    end;
end;