Запишите полный текст программы.

for i:=1 to n-1 do

begin imax:=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

Const

n = 20;

var

i, imax, j, x: integer;

a: array[1 ... n]of integer;

begin

for i : = 1 to n do

a[i] : = random (100) ;

for i : = 1 to n - 1 do

begin

imax : = 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;

for i : = 1 to n do

write (a[i],' ') ;

writeln () ;

writeln (imax) ;

end.