Описываем переменные: max, min, imax,imin,jmax,jmin - все типа integer, если массив "of integer". Присваиваем начальные значения: max:= a[1,1]; min:= a[1,1]; imax,imin,jmax,jmin - все = 1. Открываем двойной цикл (по i и по j), просматривая все элементы массива, сравниваем их как с max, так и с min. If a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j end; аналогично: If a[i,j]