Дан массив из 10 элементов вывести на экран так чтобы на первом месте стояло минимальное число а на последнем максимальное

var a : array [1..10] of integer;

i, max,min,nmax,nmin: integer;

begin

randomize;

for i:= 1 to 10 do  

begin  

 a[i] := random(50);

 write (a[i], ' ');

end;

writeln;

max:=a[1];

min:=a[1];

for i:= 1 to 10 do  

begin

if a[i]>max then  begin max:=a[i];nmax:=i;end;

if a[i]<min then begin min:=a[i];nmin:=i;end;  

end;

a[nmax]:=a[10];a[10]:=max;

a[nmin]:=a[1];a[1]:=min;

for i:= 1 to 10 do  

begin  

 write (a[i], ' ');

end;

end.