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

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var d:array[1..10,1..12] of integer;
    m,n,i,j,s1,s2:integer;
begin
 randomize;
 repeat
 write('m [2..10] m=');
 readln(m);
 until m in [2..10];
 repeat
 write('n [2..12] n=');
 readln(n);
 until n in [2..12];
 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);//если сумма после меньше 0, выводим 1й элемент
   for j:=2 to n-1 do//проверям от 2 до предпоследнего
    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); //если сумма до больше 0, выводим последний элемент
   writeln;
  end;
 readln;
end.