Сделайте пожалуйста,очень нужно на завтра,задание под вопросом

полный текст программы:var a: array[1..50] of Integer;i,x,imax,j,n: Integer;beginfor i:=1 to n-1 dobeginimax:=i;for j:=i+1 to n do if a[j]>a[imax] then imax:=j;x:=a[i];a[i]:=a[imax];a[imax]:=x;end;end.