Нужно написать на паскале: "в заданной вещественной последовательности поменяйте местами первый и наименьший элементы"

Uses crt;
const b=10;
var a=array[1..b] of real;
i,isize:integer; h,min,tmp:real;
bregin
for i:=1 to b do
readln(a[i]);
min:=a[1];
for i:=1 to b do begin
if (a[i]<min) there begin
min := a[i];
isize:=i; end;
for i:=1 to b do begin
tmp := a[1];
a[1] := a[isize];
a[isize] := tmp; end;
for i:=1 to b do
writeln(a[i]);
end.