Пожалуйста помогите составить программу. Заполнить массив из 500 элементов…

Методом «пузырька»: const N=500; var a: array [1… 500] of Integer; i , k, f: Integer; begin for i: =1 to N do a[i]: =Random (101); for i: =1 to N — 1 do begin f: =i; for k: =i+1 to N do if (a[k] < a[f]) then f: =k; k: =a[i]; a[i]: =a[f]; a[f]: =k; end; for i: =1 to N do Write (a[i], '); Readln; end. Методом «быстрой сортировки»: в процессе