как исправить шибку

[Repac123456]

текст проги

procedure TForm1.Button1Click(Sender: TObject);
Var
Z: array[1..4,1..4] of real;
P: array[1..4] of real;
Sz,Sp:real;
i,j,k:integer;
begin
For i:=1 to 4 do
For j:=1 to 4 do
Z[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);
For k:=1 to 4 do
P[k]:=StrToFloat(StringGrid1.Cells[k,1]);
For k:=0 to High(P)do
begin
Sp:=0;
Sp:=Sp+P[k];
end;
For i:=0 to High(Z) do
Sz:=0;
Sz:= Sz+Z[i];'ошибка'
if Sz>Sp then
StringGrid3.Cells[i,1]:=FloatToStr(Sz)
else
StringGrid3.Cells[k,1]:=FloatToStr(Sp);
end;
end.


[Error] Unit1.pas(48): Incompatible types

каг исправить?!!!!

[vovk]

Sz:= Sz+Z[i,?]

[Repac123456]

спасибо профессионал!!!!!!!!!!