(1)program sort(input, output) 2)var a: arrayl0.10] of integer (3) X integer 4) procedure readarray 5) var i: integer; (6) begin….a….end{ readarray} 7 procedure exchange(i, j: integer) (8) begin (9) :可;a:=aj,aj= (10) end exchange (11) procedure quicksort(m, n: integer) (12) ar k,v: integer; (13) function partition (y, Z: integer) integer var i, j: integer; (15) begin. .a (16) (17) exchange (i, D (18) end partition; (19) begin.. end quicksort (20)begin.. end(sorty(1) program sort(input,output) (2) var a: array[0..10] of integer; (3) x: integer; (4) procedure readarray; (5) var i: integer; (6) begin ... a ... end {readarray}; (7) procedure exchange (i, j: integer); (8) begin (9） x := a[i]; a[i:=a[j]; a[j]:=x (10) end {exchange}; (11) procedure quicksort (m, n:integer); (12) var k,v: integer; (13) function partition (y,z: integer): integer; (14) var i, j:integer; (15) begin ... a ... (16) .......... (17) ... exchange (i, j); ... (18) end {partition}; (19) begin ... end {quicksort}; (20) begin ... end (sort}