Задан одномерный массив целых чисел. Поменять местами первый положительный элемент массива с его первым минимальным элементом

var i,temp,pol,minA,min:integer;a:array[1..5] of integer;beginminA:=a[1];for i:=1 to 5 do beginreadln(a[i]);if(a[i]<minA)then begin min:=i; minA:=a[i]; end;if(a[i]>0)and (temp=0)then begin pol:=i; temp:=1; end;end;temp:=a[min];a[min]:=a[pol];a[pol]:=temp;for i:=1 to 5 do write(a[i],' '); end.

n, i, m, ind, x: integer;a: array [1..1000] of integer;beginreadln(n);for i:= 1 to n doread(a[i]);m:=maxint;for i:= 1 to n doif (a[i]<m) then begin m:=a[i];ind:=i;end;for i:= 1 to n doif (a[i]>0) then begin x:=a[i];a[i]:=m;a[ind]:=x;break;end;for i := 1 to n dowrite(a[i], ' ');readln;end.Держи