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

Form1: TForm1;
 i,j,k,s,m:integer;
  A:array[1..5,1..5]of real;
  H:TextFile;
  const i=5;
        j=5;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn3Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
var i,j:integer;
begin
for i:=0 to str1.RowCount-1 do
  str1.Rows[i].Clear;
for i:=0 to str2.RowCount-1 do
  str2.Rows[i].Clear;
for i:=1 to n do
  begin
    str1.Cells[0,i]:=inttostr(i);
  end;
 for j:=1 to n do
  begin
    str1.Cells[j,0]:=inttostr(j);
  end;
   str2.Cells[0,0]:='';
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
Readln(i);
s:=1;
for i:=1 to m do
s:=s*i;
end;
 
begin
  For i:=1 to n do
  begin
    for j:=1 to m do
    begin
    if j>2 then A[i,j]:=2*(j/2 - 3.76) - Power(2,i) if j<=2 then A[i,j]:=3.2*power(2,j) - 2*fact(s);
    str1.Cells[i,j]:=format('%10.1f',[A[i,j]]);
    end;
 
 
      end;
 
       Assignfile (H,'lab6v.pas');
rewrite(H);
writeln(H,'Первоначальная матрица');
for j:=1 to n do
  begin
    writeln(H,'  ');
    for k:=1 to m do
      begin
        write(H,a[k,j]:10:1, ' ');
      end;
  end;
    begin
 count := 0;
 for j := 1 to m do
  if a[i, j] <> 0 then inc(count);

unit Unit6;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls, Math;
 
type
  TForm6 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const n=5;
      m=5;
var
  Form6: TForm6;
 
implementation
 
{$R *.dfm}
 
function Fact(n:integer):integer;
var i:integer;
begin
Result:=1;
for i:=2 to n do Result:=Result*i;
end;
 
procedure TForm6.Button1Click(Sender: TObject);
var i,j,k,non:integer;
x:double;
A:array [0..n-1,0..m-1] of double;
f:textfile;
begin
//----Fill Matrix
for i:=1 to n do
   for j:=1 to m do
      begin
      if j>2 then A[i-1,j-1]:=2*(j/2-3.76)-Power(2,i)
      else A[i-1,j-1]:=3.2*Power(2,j)-2*Fact(i);
      end;
//----Show Matrix
for i:=1 to n do for j:=1 to m do StringGrid1.Cells[j,i]:=Trim(Format('%10.3f',[A[i-1,j-1]]));
AssignFile(f,'f:\lab6.txt');Rewrite(f);
Writeln(f,'Source matrix');
for i:=1 to n do
   begin
   for j:=1 to m do Write(f,A[i-1,j-1],' ');
   Writeln(f);
   end;
Writeln(f);
//----Find non-zero elements
Writeln(f,'Non-zero elements');
non:=0;
for i:=1 to n do
   for j:=1 to m do
      begin
      if Abs(A[i-1,j-1])>1e-10 then begin Writeln(f,'Row='+IntToStr(i)+', ElValue=',A[i-1,j-1]);inc(non);end;
      end;
Writeln(f,'Total non-zero elements='+IntToStr(non));
Writeln(f);
 
// Bubble-sorting
for j:=1 to m do
   begin
   if (j mod 2)=0 then continue;
   repeat
     begin
     k:=0;
     for i:=1 to n-1 do
        begin
        if A[i-1,j-1]>A[i,j-1] then
           begin
           x:=A[i-1,j-1];A[i-1,j-1]:=A[i,j-1];A[i,j-1]:=x;inc(k);
           end;
        end;
     end;
   until (k=0);
   end;
 
Writeln(f,'Destination matrix');
for i:=1 to n do
   begin
   for j:=1 to m do Write(f,A[i-1,j-1],' ');
   Writeln(f);
   end;
Writeln(f);
 
CloseFile(f);
Button1.Caption:='Done!';
end;
 
end.

str2.Cells[i,j]:=floatToStrF(A[i,j],fffixed,7,2);