Исправьте пожалуйста программу

[Алексей_xXx]

Исправьте пожалуйста прогармму !

procedure TForm1.Button1Click(Sender: TObject);


const


SIZE=5;


var


a:array[1..SIZE] of integer;


k:integer; // текущий элемент массива


i:integer; // индекс для ввода и вывода массива


changed:boolean; // TRUE, если в текущем цикле были обмены


buf:integer; // буфер для обмена элементами массива


begin


// ввод массива

for i:=1 to SIZE do


a[i] := StrToInt(StringGrid1.Cells[i-1, 0] );

label2.caption:='';


// сортировка массива repeat


Changed:=FALSE; // пусть в текущем цикле нет обменов

for k:=l to SIZE-1 do


if a[k] > a[k+l] then


begin // обменяем k-й и k+1-й элементы

buf := a[k]; a[k] := a[k+l]; a[k+l] := buf;


changed := TRUE;

end;


// вывод массива

for i:=l to SIZE do


Label2.caption:=label2.caption+' '+IntTostr(a[i]);

Label2.caption:=label2.caption+#13;


until not changed; // если не было обменов, значит

// массив отсортирован


Label2.caption:=label2.caption

+#13+'Maccив отсортирован.';

end;

[Алексей_xXx]

Народ ну помогите пожалуйста. С переменной К какие-то нелады а понять не могу, что такое.

[KORN]

сначала научись правильно создавать темы, а потом задавай вопросы