Найти индекс максимального элемента массива "Pascal"

[Женька Good]

Найти индекс максимального элемента массива над главной диагональю "Pascal"
Кроме того, я в программе ищу сумму элементов над главной диагональю и максимальный элемент над главной диагональю. Всё нашёл, кроме индекса элемента над главной диагональю...
помогите пожалуйста.
Вот то, что у меня получилось:

Program Xmelez_2_Massiv;
Uses Crt;
const k=5;n=5;
Type mas=array [1..k,1..n] of Real;
Var a:mas;
    i,j:integer;
    max,sum:real;
    maxi,maxj:integer;
Begin
CLRSCR;
Sum:=0;
Max:=a[i,j];
maxi:=1;
maxj:=1;
Writeln('|*******************************************|');
Writeln('|                MATRICA                    |');
Writeln('|*******************************************|');
 For i:=1 to k do
  for j:=1 to n do
   a[i,j]:=i*(2*sin(abs(2*j))*cos(2*j)-11.6*sin(j/0.4-1))+sin(j)*sin(i/0.1+9.4*sin(3*i-2.5));
   For i:=1 to k do begin
    for j:=1 to n do
   write('|',a[i,j]:6:1,' |');
   writeln;
   begin
    If (k-j+1)<i then
    sum:=sum+a[i,j];
     If a[i,j]>max then
     max:=a[i,j];
      If a[i,j]>max then
      begin
      max:=a[i,j];
      maxi:=i;
      maxj:=j;
      End;
    end;
   end;
   writeln('|*******||*******||*******||*******||*******|');
   writeln;
   writeln('Summa elementov glavnoy diagonali ravna ',sum:0:1);
   Writeln;
   Writeln('Indeksi naibolshego elementa massiva ==> ',Maxi:1:1;
   writeln;
   writeln('maximalny element nad glavnoy diagonalu = ', max:0:1);
Readln;
end.

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