Даны натуральное число n и квадратная матрица порядка n целочисленных элементов, где n≤15. Найти минимальный элемент и его индексы среди значений, лежащих на главной диагонали матрицы — Pascal(Паскаль)

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.