Pascal

Serus, môžete mi prosím pomôcť s Pascalom? Majú sa mi vypísať čísla na Canvas (Delphi 7), mám 10 čísel vypísaných v Canvase potom využijem nejaký sort (bubble, insert, quick.. to je jedno), utriedia sa mi čísla a zapíšu opäť na Canvas. A ďalej potrebujem urobiť aby sa mi zo zoradených čísel urobil MEDIÁN a vypísal do tretieho riadku v Canvase. Prosím pomôžte mi ak viete.//BUBBLE SORTprocedure TForm1.Button1Click(Sender: TObject);var a:array of integer; i,j,p,k,o :integer;beginfor i:=1 to n do //vytvori nahodne cisla a:=random(90)+10;for i:=1 to n do image1.Canvas.TextOut(i*25,10,inttostr(a)); for i:=1 to n-1 do //sort for j:=1 to n-i do begin inc(o); if a>a then begin k:=a; a:=a; a:=k; end; end;for i:=1 to n do image1.Canvas.TextOut(i*25,40,inttostr(a)); image1.canvas.textout(20,60, 'Počet ifov: '+inttostr(o));end;Toto všetko mám ale neviem ako ďalej s tým mediánom (plus mi nefunguje počítanie tých ifov..) Medián je stredná hodnota zoradených čísel. Takže keď už ich máš zoradené, jednoducho vypíš a. Kde je problém? Môžeš mi to dopísať presnejšie do kódu aby to fungovalo? Nemôžem, skús to sám. Tazko ti sem pisat nieco naviac, ked sa naozaj jedna o doplnenie jedneho riadku kodu (ak nie je nahodou zadanie definovane tak, ze za median z mnoziny o parnom pocte prvkov je povazovana hodnota a+a). Proste na konci programu, ked je to uz spocitane potrebujes vypisat prostredny prvok z pola. ...