Кто знает Delphi. Дам 10 баллов!!

Как мне связать Stringgrid и эту прогу для нахождения определителя матрицы 5*5

Или в чем ошибка.

procedure TForm1.Button1Click(Sender: TObject);
const n=5;
var r,l,p,m,i,j,k,d,t,f:integer;
c,v:real;
a:array[1..n,1..n] of integer;
begin
r:=1;
for k:=1 to n-1 do
begin
if a[k,k]='0' then
begin
l:=k ;
for m:=k+1 to n do
if abs(a[m,k])>abs(a[l,k]) then
l:=m;
if l=k then d:=0;
for j:=k+1 to n do
begin
p:=a[k,j];
a[k,j]:=a[i,j] ;
t:=a[l,j];
t:=p;
r:=-r;
end;
end;
for i:=k+1 to n do
begin
c:= a[i,k])/a[k,k];
f:=a[i,k] ;
f:=0;
for j:=k+1 to n do
v:=a[i,j];
v:=a[i,j]-c*a[k,j] ;
end;
end;
d:=1;
for i:=1 to n do
d:=d*a[i,i];
d:=d*r;
label8.Caption:='d='+inttostr(d);

end;
end.