Напишите программу поиска минимального и максимального элементов матрицы. Программа должна менять максимальный и минимальный элементы между собой и выводить на экран исходную и преобразованную матрицы (Турбо Паскаль)

 Program al;   var  a: array[1..32000] of integer;   buf:integer;   i,n,min,max:integer; begin    writeln('n=');  readln(n);   writeln('vvedite massiv=');   for i := 1 to n do   readln(a[i]);  min:=1;   max:=1;   for i:=2 to n do     begin       if a[min]>a[i] then         min:=i;      if a[max]min');   for i:=1 to n do    write(a[i]:4);  writeln;   end.