В каждой строке матрицы найти элементы, для которых сумма предшествующих элементов больше суммы последующих элементов

program Project3;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var d:array[1..6,1..6] of integer;
    m,n,i,j,s1,s2:integer;
begin
 randomize;
 repeat
 write('m [2..6] m=');
 readln(m);
 until m in [2..6];
 repeat
 write('n [2..6] n=');
 readln(n);
 until n in [2..6];
 for i:=1 to m do
  begin
   s1:=0;
   s2:=0;
   for j:=1 to n do
    begin
     d[i,j]:=-5+random(11);
     write(d[i,j]:3);
     if j>1 then s2:=s2+d[i,j];
    end;
   write(' |');
   if s2<0 then write(d[i,1]:3);
   for j:=2 to n-1 do
    begin
     s1:=s1+d[i,j-1];
     s2:=s2-d[i,j];
     if s1>s2 then write(d[i,j]:3);
    end;
   if s1>0 then write(d[i,n]:3);
   writeln;
  end;
readln;
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var d:array[1..6,0..7] of integer;
    m,n,i,j,k,s1,s2:integer;
begin
 randomize;
 repeat
 write('m [2..6] m=');
 readln(m);
 until m in [2..6];
 repeat
 write('n [2..6] n=');
 readln(n);
 until n in [2..6];
 for i:=1 to m do
  begin
   d[i,0]:=0; //в начало и в конец строк впишем ноли
   d[i,n+1]:=0;
   for j:=1 to n do
   d[i,j]:=-5+random(11);
  end;
 for i:=1 to m do
  begin
   for j:=1 to n do
   write(d[i,j]:3);
   write(' |');
   for j:=1 to n do
    begin
     s1:=0;
     s2:=0;
     for k:=0 to j-1 do s1:=s1+d[i,k];
     for k:=j+1 to n+1 do s2:=s2+d[i,k];
     if s1>s2 then write(d[i,j]:3);
    end;
   writeln;
  end;
readln;
end.