Преобразовать строки матрицы по правилу ><

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    StatusBar1: TStatusBar;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
      private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.N3Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
Form2.Show;
end;
 
procedure TForm1.N4Click(Sender: TObject);
var
i,j,max:integer;
begin
max:=StrToInt(Form1.StringGrid1.Cells[0,0]);
for i:=0 to Form1.StringGrid1.RowCount-1 do
  for j:=0 to Form1.StringGrid1.ColCount-1 do
    if StrToInt(Form1.StringGrid1.Cells[j,i]) > max then
    /// как сделать так чтобы, число положительных элементов в строке
  /// больше числа отрицательных - расположить элементы строки в обратном порядке.
  /// В противном случае отрицательные элементы заменить нулем.
 
end;
 
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,math;
Type Matrix=array[0..4,0..6]of integer;
 
procedure PosMinMax(a:Matrix;index:integer;var min,max:integer);
var i,j:integer;
begin
Min:=0; max:=0;
for j:=0 to 6 do
if a[index,j]>=0 then inc(max) else inc(min);
end;
 
var i,j,p,o,tmp,j1:integer;
    a:Matrix;
begin
for i:=0 to 4 do
begin
for j:=0 to 6 do
begin
a[i,j]:=random(15)-5;
write(a[i,j],' ');
end;
writeln;
end;
 
////////////////////////////////////
for i:=0 to 4 do
for j:=0 to 6 do
begin
PosMinMax(a,i,o,p);
if o>p then
for j1:=0 to 6 do
a[i,j1]:=0
else
 begin
 for j1:=0 to 6 do
  begin
  if j1=3 then break;
   tmp:=a[i,j1];
   a[i,j1]:=a[i,6-j1];
   a[i,6-j1]:=tmp;
  end;
  end;
end;
//////////////////////////////
 
writeln;
for i:=0 to 4 do
begin
for j:=0 to 6 do
write(a[i,j],' ');
writeln;
end;
readln
end.