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