Двумерный массив(1 задача)

[MyaSnIKs]

Дана квадратная матрица порядка M. Вывести минимальные из элементов каждой ее диагонали, параллельной побочной диагонали

я написал:

begin
n:=strtoint(edit1.text);
for j:=1 to n do
for i:=1 to n do
a[i,j]:=strtoint(stringgrid1.Cells[i-1,j-1]);
for i:=1 to n do begin
minx:=a[i,(n-i+1)];
if a[i,(n-i+1)]<minx then begin
minx:=a[i,(n-i+1)];
end;   
Memo1.Lines.Add(inttostr(minx));
end;
end;
end.

Но при поиске он у меня просто выписывает в мемо побочную диоганаль всю и всё, я знаю.
я вот не могу понять как заставить его пробегать по всем диагоналям и как сделать чтобы он выписывал именно минимальные значения из них.

[antoha.by]

Так я не понимаю смысл побочной паролельной диоганали. Что это такое?
Поэтому напишу для поиска миниума по диогоналям

var i,min1,n,min2:integer;
a:array[1..100,1..100] of integer;
begin
// Подразумевается, что массив A уже введен n - порядок массива
// min1 - минимальный элемент диоганали с верху в низ с лева на право
// min2 - минимальный элемент диоганали с низа в верх с лева на право
min1:=a[1,1];
min2:=a[1,n];
for i:=2 to n do
 begin
  if min1<a[i,i] then min1:=a[i,i];
  if min2<a[i,n-i+1] then min2:=a[i,n-i+1];
 end;
end;

[Sazary]

Так я не понимаю смысл побочной паролельной диоганали. Что это такое?

Вот побочная диагональ:
1 1 1 1
1 1 1 1
1 1 1 1
1 1 1 1

Имеется в виду, что нужно найти минимумы для каждой "линии", параллельной побочной:
1 1 1 1
1 1 1 1
1 1 1 1
1 1 1 1
и т.д.

[Sazary]

MyaSnIKs

var n : integer;
a : array[1..10,1..10] of integer;
i,j : integer;
minx : integer;
begin
n:=4;
for i:=1 to n do
 for j:=1 to n do
  a[i,j]:=strtoint(stringgrid1.Cells[j-1,i-1]);


for i:=1 to n do
 begin
 minx:=a[i,1];
 for j:=1 to i do
  if a[i-j+1,j]<minx then
   minx:=a[i-j+1,j];
 Memo1.Lines.Add(inttostr(minx));
 end;

 for i:=2 to n do
  begin
  minx := a[i,n];
  for j:=i to n do
   if a[j,n-j+i]<minx then
    minx := a[j,n-j+i];
  Memo1.Lines.Add(inttostr(minx));
  end;
end;

[MyaSnIKs]

огромное спасибо всем, разобрался, всё работает.