Ввести элементы матрицы А(6, 6). В матрице А определить месторасположение (координаты) максимального элемента.Программа запускается, но выводит не то расположениеprogram Zadacha_10;{$APPTYPE CONSOLE}Type mat_a = array[1..6,1..6] of real;Type mat_b = array [1..6,1..6] of real;var A:mat_a; B:mat_b;var i, j, index_i_max, index_j_max : integer;var min, max:real;{Формирование матрицы}beginfor i:=1 to 6 do for j:=1 to 6 do begin write('A[',i,',',j,']= '); readln(A[i,j]); end;writeln('A= '); for i:=1 to 6 do begin for j:=1 to 6 do write(round(A[i,j]),' '); writeln; end;{Поиск макс элементов матрицы}beginmax:=A[1,1];for i:=1 to 6 do for j:=1 to 6 do if A[i,j]>max then index_i_max:=i; index_j_max:=j;write('Max element raspolojen v A[', index_i_max,',',index_j_max,']');end;На вторую матрицу B не обращайте внимание, она понадобится позже