ошибка у Delphi 7

[Link1993]

задана матрица Y (n, n), n <15. разработать программу, которая упорядочивает по убыванию элементы всех столбцов в которых расположены крупнейшие по модулю элементы матрициY
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.text='' then edit1.text:='1';
if strtoint(edit1.text)>15 then edit1.text:='15';
StringGrid1.RowCount:=StrToInt(edit 1.Text);
StringGrid1.ColCount:=StrToInt(edit 1.Text);
StringGrid2.RowCount:=StrToInt(edit 1.Text);
StringGrid2.ColCount:=StrToInt(edit 1.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
Var Y:array[1..15,1..15] of integer;
n,i,j,k,l,t,min,f,x: integer;
begin
for i:=1 to n do
for j:=1 to n do
Y[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);
k:=1;l:=1;
for i:=1 to n do
for j:=1 to n do
if Y[i,j]>Y[k,l] then begin
k:=i;l:=j;
end;
begin
for f:=1 to n do
for x:=1 to n do
if y[f,x]=y[k,l] then begin
for i:=1 to n do
begin
min:=i;
for j:=i+1 to n do
if Y[i,j]<Y[i,min] then
min := j;
t:=Y[i,min];
Y[min,i]:=Y[i,j];
Y[i,j]:=t;
end;
for i:=1 to n do
for j:=1 to n do
StringGrid2.Cells[i-1,j-1]:=inttostr(Y[i,j]);
end;
end;



end;
end.

[_Engine_]

И какую-же ошибку у Delphi7 вы обнаружили?