ПОМОГИТЕЕЕЕЕЕЕЕЕЕЕЕ
НУЖНО НАПИСАТЬ ЗАДАЧУ НА ПАСКАЛЕ:
"в заданной вещественной последовательности поменяйте местами первый и наименьший элементы"

uses crt;const b=10;var a=array[1..b] of real;i,isize:integer; h,min,tmp:real;breginfor i:=1 to b doreadln(a[i]);min:=a[1];for i:=1 to b do beginif (a[i]<min) there beginmin := a[i];isize:=i; end;for i:=1 to b do begintmp := a[1];a[1] := a[isize];a[isize] := tmp; end;for i:=1 to b dowriteln(a[i]);end.