Почему выдает ошибку?

procedure TForm1.Button1Click(Sender: TObject);
const
SIZE=10;
var
a:array[1..SIZE] of integer;
min:integer; { номер минимального элемента в части
массива от i до верхней границы массива }
j:integer; { номер элемента, сравниваемого с минимальным }
buf:integer;{ буфер, используемый при обмене элементов массива }
i,k:integer;
begin
// ввод массива
for i:=1 to SIZE do
a[i]:=StrToInt(StringGrid1.Cells[i-1,0]) ; label2.caption:='';
for i:=1 to SIZE-1 do begin
{поиск минимального элемента в части массива от а[1] до a[SIZE]} min:=i;
for j:=i+1 to SIZE do if a[j] < a [min]
then min:=j;
{ поменяем местами a [min] и a[i] }
buf:=a[i]; a[i]:=a[min]; a[min]:=buf;
{ вывод массива }
for k:=1 to SIZE do
Label2.caption:=label2.caption+' '+IntTostr(a[k]);
Label2.caption:=label2.caption+#13; end;
Label2.caption:=label2.caption+#13+'Maccив отсортирован.';
 
end;