Дан двумерный массив размерностью 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]