Найти минимальное число и поменять его с элементом массива, номер которого задан

var
  a: array[1..1000] of integer;
  i, min, b, j, x: integer;
 
begin
  //ввод данных
  writeln('введите размер массива');
  readln(b);
  for i := 1 to b do 
    readln(a[i]);
  writeln('введите элемент массива');
  readln(j);
  min := a[1];
  for i := 2 to b do 
    if a[i] < min then min := i;
  x := a[j];
  a[j] := a[min];
  a[min] := x;
  for i := 1 to b do
    write(a[i], ' ');
end.

program ex;
const n = 10;
var a:array[1..n]of integer;
i,x,number,min,t:integer;
 
begin
write('Массив: ');
for i:=1 to n do
  begin 
  a[i]:=random(101)-50;
  write(a[i]:4);
  end;
writeln();
 
repeat
write('Введите номер элемента массива с которым поменяем минимальное: ');
readln(x);
if (x<1) or (x>n)then
writeln('Такого номера не существует, вы вышли за границы диапазона');
until (x>=1)and(x<=n);
 
min:=a[1];
number:=1;
for i:=1 to n do
 if a[i]<min then
 begin
 min:=a[i];
 number:=i;
 end;
t:=a[x];
a[x]:=a[number];
a[number]:=t;
 
write('Результат: ');
for i:=1 to n do
  write(a[i]:4);
writeln();
end.

number:=1;
for i:=2 to n do
 if a[i]<a[number] then number:=i;
 
t:=a[x];
a[x]:=a[number];
a[number]:=t;