Найти мин и поменять его местами со следующим элементом в массиве

[netiv]

Найти минимальное число и поменять его местами с последующим эле-ментом массива.

Вот прога которая ищет мин в массиве, но как поменять его местами со следующим я не знаю. Поэтому прошу помочь(желательно с коментариями)

program a1;
var a: array [1..1000] of integer;
i,n,s,k,j,min:integer;
begin
writeln('Введите массив');
readln(n);
for i:=1 to n do begin
write('Введите числа а',[i],'=');
readln(a[i]);
end;
min:=32500;
for i:=1 to n do begin
if(a[i]<min) then min:=a[i]; 
end;
writeln('min=',min);
writeln;
for i:=1 to n do
write(a[i]);
end.

[Vanta11a]

следующий элемент будет

a[i+1]

Прикрутить проверку на то, что a[i] - не последний элемент массива, потом

c:=a[i+1];
a[i+1]:=a[i];
a[i]:=c;

[netiv]

Сообщение от Vanta11a

Прикрутить проверку на то, что a[i] - не последний элемент массива

Не мог бы показать на примере как сделать проверку. Буду благодарен.

[netiv]

Всё разобрался. Спасибо.