Delphi and MatLab

[Vego]

вот эту программу нужно написать в MatLab:

if ComboBox1.ItemIndex = 2 then begin
for i:=1 to (N div 2) do begin
if A[i] > A[i+1] then begin
min:=i+1;
max:=i;
end
else begin
min:=i;
max:=i+1;
end;
for j:=i+2 to (N-i+1) do
if A[j]>A[min] then
max:=j
else
if A[j]<A[min] then
min:=j;
p:=A[i];
A[i]:=A[min];
A[min]:=p;
if max=i then
max:=min;
p:=A[N-i+1];
A[N-i+1]:=A[max];
A[max]:=p;