В одномерном массиве найти наименьший элемент среди положительных (в массиве погут быть и отрицательные элементы) и поменять его местами с последним — Pascal(Паскаль)

const n = 10;
var
  a: array[1..n] of integer;
  i,min,tmp:integer;
begin
  min:= 1;
  for i:= 1 to n do begin
    readln(a[i]);
    if (a[i] > 0) and (a[i] < a[min]) then min:= i;
  end;
  tmp:= a[min];
  a[min]:= a[n];
  a[n]:= tmp;
  for i:= 1 to n do
  write(a[i],' ');
end.