В двумерном массиве найти среднее арифметическое отрицательных элементов и произведение положительных

const m=8;
      n=4;
var
  Form1: TForm1;
  k: array[1..m,1..n] of real;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблицы
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth;
  options:=options+[goEditing,goTabs]
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
ShowMessage('Введите в таблицу числа');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,ko,kp,c:integer;
    s,p:real;
begin
//проверка заполнения таблицы
ko:=0;
i:=0;
while(i<m)and(ko=0) do
 begin
  j:=0;
  while(j<n)and(ko=0) do
   begin
    val(StringGrid1.Cells[j,i],k[i+1,j+1],c);
    if c<>0 then ko:=1
    else inc(j);
   end;
  if ko=0 then inc(i)
 end;
if ko=1 then
 begin
  ShowMessage('Не все элементы, введены верно, поправьте');
  exit
 end;
ko:=0;
kp:=0;
s:=0;
p:=1;
for i:=1 to m do
for j:=1 to n do
 begin
  if k[i,j]<0 then
   begin
    ko:=ko+1;
    s:=s+k[i,j];
   end;
  if k[i,j]>0 then
   begin
    kp:=1;
    p:=p*k[i,j];
   end;
  end;
if ko=0 then Edit1.Text:='Отрицательных элементов нет'
else
 begin
  s:=s/ko;
 Edit1.Text:='Среднее арифметическое отрицательных='+floattostrF(s,ffFixed,6,2);
 end;
if kp=0 then Edit2.Text:='Положительных элементов нет'
else Edit2.Text:='Произведение положительных='+floattostrF(p,ffFixed,6,2);
end;