Дан двумерный массив размерностью 5x7, заполненный случайным образом. найти наименьший и наибольший элементы двумерного массива, поменять их местами. (в паскале)

Описываем переменные: 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]<min  then begin min:=a[i,j]; imin:=i; jmin:=j end; После окончания цикла меняем индексы максимального элемента на соответствующие индексы минимального и наоборот. Выводим измененный массив.