Помогите исправить программу Паскаль…

Помогите исправить программу Паскаль, чтоб выполнлись следующие условия, очень срочно: В массиве а (3,4) поменять местами строки с максимальным иминимальным элементомconst nmax=100; var a: array[1… nmax,1… nmax] of integer; i,j,m,n,min,max,i_max,j_max,i_min,j_min,tmp: integer; begin randomize; write ('Введите размеры массива m, n: '); readln (m,n); writeln ('Исходная матрица: '); for i: =1 to m do begin for j: =1 to n do begin a[i,j]: =random (99)+1; write (a[i,j]: 4); end; writeln; end; writeln; min: =a[1,1]; max: =a[1,1]; i_min: =1; j_min: =1; i_max: =1; j_max: =1; for i: =1 to m do for j: =1 to n do begin if a[i,j]>max then begin max: =a[i,j]; i_max: =i; j_max: =j; end; if a[i,j]