Проверить, лежит ли на побочной диагонали минимальный положительный элемент матрицы A(n, n)

var
  Form1: TForm1;
  n:integer;
implementation
 
{$R *.lfm}
 
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
//зададим некоторые параметры таблицы
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth;
  options:=options+[goEditing];
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
//проверим ввод размерa
val(Edit1.Text,n,k);
if (k<>0)or (n<2)then
 begin
  ShowMessage('Неверно введен размер');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
ShowMessage('Введите в таблицу целые положительные и отрицательные числа');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var a:array of array of integer;
    i,j,k,mn:integer;
begin
setlength(a,n,n);
//прочитаем матрицу из таблицы
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  val(StringGrid1.Cells[j,i],a[i,j],k);
  if k<>0 then
    begin
     ShowMessage('Не все числа введены корректно, поправьте');
     exit
    end;
  if a[i,j]>0 then  mn:=a[i,j];//пока мнимальный любой положительный
 end;
for i:=0 to n-1 do
for j:=0 to n-1 do
if (a[i,j]>0)and(a[i,j]<mn) then mn:=a[i,j];//найдем самый маленький положительный
Edit2.Text:='Минимальный положительный элемент='+inttostr(mn);
i:=0; //проверим есть ли этот элемент на главной диагонали
j:=-1;
while(i<n)and(j=-1) do
if a[i,i]=mn then j:=i
else inc(i);
if j=-1 then Edit3.Text:='На главной диагонали нет минимального положительного элемента'
else Edit3.Text:='На главной диагонали есть минимальный положительный элемент'
                  +'он в ячейке ['+inttostr(j+1)+','+inttostr(j+1)+']';
end;

i:=0; //проверим есть ли этот элемент на побочной диагонали
j:=-1;
while(i<n)and(j=-1) do
if a[i,n-i-1]=mn then j:=i
else inc(i);
if j=-1 then Edit3.Text:='На побочной диагонали нет минимального положительного элемента'
else Edit3.Text:='На побочной диагонали есть минимальный положительный элемент'
                  +'он в ячейке ['+inttostr(j+1)+','+inttostr(n-j)+']';