В массиве А (N) поменяйте местами первый отрицательный и минимальный элементы

uses crt; const N=10; var a: array[1… N] of integer; i,k,m,min,imin: integer; Beginreadln (m); for i: =1 to m do beginreadln (a[i]); min: =min+a[i]; end; for i: =1 to m do beginif a[i]<0 then begink: =i; break; end; end; for i: =1 to m do beginif a[i]