Дан массив из n случайных чисел (числа вводятся с клавиатуры).поменять местами максимальные и минемальные элементы массива

Паскаль? const n=< требуемое число элементов> ; var a: array [1..n] of integer; i,i_max,i_min: byte; max,min,x: integer; begin writeln(' введите элементы массива через пробел'); for i: =1 to n do read(a[i]); max: =0; min: =1000; i_max: =0; i_min: =0; for i: =1 to n do begin if a[i]> max then begin max: =a[i]; i_max: =i; end; if a[i]< min then begin min: =a[i]; i_min: =i; end; end; x: =max; a[i_max]: =min; a[i_min]: =x; for i: =1 to n do write(a[i],'  '); readln; end.