Потоки в Делфи (сортировка массива)

[radosteva21]

Помогите пожалуйста!
Вот задание! Отсортировать массив случайных чисел тремя разными алгоритмами: пузырьковая сортировка, сортировка вставками и быстрая сортировка. В процессе сортировки промежуточные значения выводятся на экран, чтобы пользователь мог наблюдать, какой их алгоритмов быстрее.

Вот, что сделала. А вывести промежуточные значения не знаю как Помогите!

unit Unit2;
interface
uses
 Classes,Windows;
type
TMyThread = class(TThread) //Новый класс
   protected
   procedure Execute; override;
    end;
 

 var 
       a: array [0..20] of integer ;
  i:integer;
implementation

uses
 SysUtils, Unit1;
   var x:integer;
//Длинная процедура

 procedure BubbleSort( var a: array of integer; min, max: Integer); 
var 
i, j, tmp: integer; 
begin 
for i:=min to max do 
for j:=min to max-i do 
if A[j]>A[j+1] then 
begin  
tmp:=A[j]; 
A[j]:=A[j+1]; 
A[j+1]:=tmp;
 end; 
end;
 
   procedure InsertionSort( var a: array of integer; N: integer);
var 
B: array [0..10000] of integer; 
i, j: integer; 
begin 
for i:=0 to N do begin 
j:=i; 
while (j>1) and (B[j-1]>A[i]) do begin 
B[j]:=B[j-1]; 
j:=j-1; 
end; 
B[j]:=A[i]; 
end; 
for i:=0 to N do 
A[i]:=b[i]; 
end;

procedure QuickSort( var a: array of integer; min, max: Integer); 
Var
i,j,mid, tmp : integer; 
Begin
if min<max then begin
mid:=A[min];
i:=min-1;
j:=max+1;
while i<j do begin
repeat
i:=i+1;
until A[i]>=mid;
repeat
j:=j-1;
until A[j]<=mid;
if i<j then begin 
tmp:=A[i];
A[i]:=A[j];
A[j]:=tmp;
end;
end;
QuickSort(a, min,j);
QuickSort(a, j+1,max);
end;
end;

 procedure TMyThread.execute;
 begin
  Form1.Memo1.Clear;
for i:=0 to 19 do
begin
 a[i]:=Random(20) ;
   Form1.Memo1.Lines.Add(IntToStr(a[i]))
end;
BubbleSort(a,0,high(a));
for i:=0 to 19 do
begin
    Form1.Memo2.Lines.Add(IntToStr(a[i]))
   end;

   InsertionSort(a,high(a));
for i:=0 to 19 do
begin
    Form1.Memo3.Lines.Add(IntToStr(a[i]))
   end;

   QuickSort(a,0,high(a));
 for i:=0 to 19 do
begin
   Form1.Memo4.Lines.Add(IntToStr(a[i]))
end;
    end;

end.

[_Engine_]

С таким оформлением даже читать не хочется

[radosteva21]

А что не так с оформлением? Что нужно сделать, чтоб вы почитали?

[Alex11223]

Тег [CODE], например.

[radosteva21]

я в делфи плохо разбираюсь, что значит тег [CODE]?

[Alex11223]

Не дельфи, форумный тег (в форме ответа\редактирования значок #) для сохранения форматирования\подсветки кода.

[radosteva21]

сделала, только что то нет посветки

[Alex11223]

И форматирование тоже не изменилось) В конце тег не закрыт: [/CODE] надо во втором.

[radosteva21]

спасибо!!!!!!!!!!!

[radosteva21]

ну помогите, пожалуйста!!!