Не получается сделать сложение положительных чисел во второй матрице, и вывести ее - Lazarus - Ответ 8327568

procedure TForm1.Button1Click(Sender: TObject);
var
A:array[1..10,1..10] of real;
i,j,m,k:integer;
s:real;
Ha:string;
begin
memo1.clear;
memo2.clear;
M:=strtoint (Edit1.text);
K:=strtoint (Edit2.text);
randomize;
{Генерация матрицы}
for i:=1 to M DO
begin
J:=1;
while J<=K DO
Begin
A[i,j]:=random(51)-20;
 
j:=j+1;
end;
 
end;
i:=i+1;
for i:=1 to M DO
begin
ha:=' ';
J:=1;
while J<=K DO
Begin
 
Ha:=ha+format('%7s',[(formatfloat ('0.0',A[i,j]))]);
j:=j+1;
end;
memo1.lines.add(ha);
 
end;
i:=i+1;
for i:=1 to M DO
begin
ha:=' ';
J:=1;
while J<=K DO
Begin
if A[i,j]<0 then A[i,j]:=-1
else
if A[i,j]>0 then A[i,j]:=1;
Ha:=ha+format('%7s',[(formatfloat ('',A[i,j]))]);
 
j:=j+1;
end;
memo2.lines.add(ha);
 
end;
i:=i+1;
for i:=1 to M DO
begin
ha:=' ';
J:=1;
while J<=K DO
 
Begin
s:=0;
s:=s+a[i,j];
if a[i,j]>0 then
s:=s+a[i,j];
 
Ha:=ha+format('%7s',[(formatfloat ('0.0',A[i,j]))]);
j:=j+1;
end;
 
end;
end;
 
end.