одномерный массив в Delphi

[Ника_1]

Здраствуйте, уважаемые программеры) обращаюсь к Вам за помощью! Задача состоит в следующем: необходимо написать программу, которая будет сортировать одномерный массив методом быстрой сортировки по возрастанию, находящийся в интервале(50,100). Прилагаю код и прошу о помощи: не знаю как сделать, чтобы всё было видно на экране, как лучше сделать заполнение в мемо или в чём то другом??? может у кого какие идеи, помогите пожалуйста!!! спасибо!

procedure TForm1.Button1Click(Sender: TObject);

const n = 10;

var
    arr: array[1..n] of byte;
    max, id_max, i, j: byte;

begin
    randomize;
    for i := 1 to n do begin
        arr[i] := random(256);
        arr[i]:=4;
    end;
    write;

    j := n;

    while j > 1 do begin
        max := arr[1];
        id_max := 1;
        for i := 2 to j do
            if arr[i] > max then
            begin
                max := arr[i];
                id_max := i
            end;
        arr[id_max] := arr[j];
        arr[j] := max;
        j := j - 1
    end;

    for i := 1 to n do
        arr[i]:=4;

readln;
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Wicort]

Так это уж Ваше дело, куда выводить
Хотите, в Memo, хотите, в Label. Куда угодно.
Но каков вообще смысл решения данной задачи при помощи VCL? Обычно подобное просто в консоли делают, без всяких форм.

[Ника_1]

А может вы знаете как это на С++ сделать на консоли...плиз, помогите, а то мне вот вот сдавать, а я чёт ваще ничё не могу вспомнить!!!

[Wicort]

Дак, собственно, практически ничем не отличается. Просто при создании проекта выбирайте не VCL Form Application, а Console Application. Весь рабочий код у Вас уже есть, просто вывод сделаете и всё.

[Son Of Pain]

Выпиши все числа в любой компонент (мемо, лейбл, грид, не важно), и на каждой итерации сортировки перерисовывай их заново, чтобы было видно, как работает алгоритм. Нагляднее некуда )