Поменять в массиве максимум и минимум, если максимум встречается раньше, чем минимум помогите, пожалуйста (((очень нужно

Одномерный массив пользователь вводит размерность массива найти в массиве минимум максимум и поменять их местами Паскаль Целочисленный массив По одному вхождению максимума и минимума Если все, то пишите! var n,imax,imin,i,r:integer; a:array[1..100] of integer; begin write('n= '); readln(n); for i:=1 to n do read(a[i]); writeln('Table:'); imax:=1; imin:=1; for i:=1 to n do begin write(a[i]:8); if a[imax]a[i] then imin:=i end; r:=a[imax]; a[imax]:=a[imin]; a[imin]:=r; writeln; writeln('New table:'); for i:=1 to n do write(a[i]:8); end.