Пожалуйста помогите составить...

Пожалуйста помогите составить программу.Заполнить массив из 500 элементов случайными числами в интервале [ 0 .. 100 ] . Отсортировать его повозрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки» .

 

Методом «пузырька»:

const
    N = 500;
var
    a : array [1..500] of Integer;
    i , k, f : Integer;
begin
    for i := 1 to N do
        a := 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;
        a := a[f];
        a[f] := k;
    end;

    for i := 1 to N do
        Write (a, ' ');
  Readln;
end.

Методом «быстрой сортировки»: в процессе