Задача по информатике 9 класс масивы. Нужно самый маленький элемент поставить на первое место, а самый болшой на последнее

Program enot;Var a: array [1..5] of integer;i,min,max,b,j,g,h,f,c:integer;beginfor i:= 1 to 5 do read (a[i]);min:=a[1];for i:= 2 to 5 doif a[i]<min then begin min:= a[i];j:= i;end;max:= a[1];for i:= 2 to 5 doif a[i]>max then beginmax:= a[i];h:=i;end;f:=a[j];a[j]:=a[1];a[1]:=f;g:= a[h];a[h]:=a[5];a[5]:= g;for i:= 1 to 5 dowrite(a[i]:4);end.