Программа сортировки из учебника, запускаю её а пишет ошибку! Подскажите пожалуйста что не так!

[Алексей_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;

[Sazary]

Вручную набирали?

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

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

Сказано же, что (k+1)-й. А у вас везде буква 'l' вместо единицы.

И еще repeat где-то пропустили. Похоже, перед

Changed:=FALSE;

надо поставить.