Найти минимальный элемент и его индексы среди значений, лежащих на главной диагонали матрицы

program matriza14;
uses crt;
var
    a: array [1..15,1..15] of integer;
    i,j,n,ind,min,sum1:integer;
begin
    ClrScr;
    write('n=');
    readln(n);
    writeln('matriza');
    randomize;
for i:=1 to n do
for j:=1 to n do
    a[i,j]:=random(30)-5;
for i:=1 to n do begin
    writeln;
for j:=1 to n do
    write(a[i,j]:5);
end;
begin
min:=a[1,1];
ind:=1;
end;
for i:=0 to n do
for j:=0 to n do
begin
if(i=j) and (a[i,j] <min) then
min:=a[i,j];
ind:=i;
end;
writeln;;
writeln('indexs=',ind);
writeln;
writeln('A=',min);
readln
end.
end.

program matriza14;
uses crt;
var
    a: array [1..15,1..15] of integer;
    i,j,n,ind,min,sum1:integer;
begin
    ClrScr;
    write('n=');
    readln(n);
    writeln('matriza');
    randomize;
for i:=1 to n do
for j:=1 to n do
    a[i,j]:=random(30)-5;
for i:=1 to n do 
 begin
  writeln;
  for j:=1 to n do
    write(a[i,j]:5);
 end;
min:=a[1,1];
ind:=1;
for i:=1 to n do
if a[i,ш] <min then
 begin
  min:=a[i,i];
  ind:=i;
  end;
writeln;;
writeln('indexs=',ind);
writeln;
writeln('A=',min);
readln
end.

min := 1;
for i:=1 to N do if a[i,i] < a[min, min] then min := i;
writeln('Минимум на главной диагонали - A[',min,',',min,'] = ',a[min,min]);