Дан одномерный массив а,состоящий из n различных элементов. поменять местами наименьший и наибольший элемнты массива. полученный массив вывести на печать. ( в basice желательно)

var a:array [1..100] of integer;
n,i:byte;
m,b,c:byte;
begin
m:=1;
b:=1;
write('Введите n = ');readln(n);
for i:=1 to n do begin
readln(a[i]);
if a[i]<a[m] then m:=i;
if a[i]>a[b] then b:=i;
end;
c:=a[m];
a[m]:=a[b];
a[b]:=c;
write('Результат: ');
for i:=1 to n do
write(a[i],' ');
end.

П.С. как будет возможность набацаю на бейсике