delphi матрицы проблема кодам.

[dmit365]

В каждой строке матрицы D(6, 6) найти элементы, для которых сумма предшествующих элемен-тов больше суммы последующих элементов. Для первого элемента сумму предшествующих элементов считать равной нулю. Для последнего элемента сумму последующих элементов считать равной нулю. Вывести матрицу, располагая рядом с каждой строкой найденные элементы

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,j,k,z,s1,s2:integer; d:array[1..6, 1..6] of integer;
begin
randomize;
for i:=1 to 6 do begin              {создаю вывожу и тд...}
 for j:=1 to 6 do
  d[i,j]:=random(10); end;
for i:=1 to 6 do begin
  for j:=1 to 6 do
    write(d[i,j]:3);
  writeln; end;
for i:=1 to 6 do                      { проход по строкам}
    for j:=2 to 6 do begin          {по элементам строк}
     s1:=0;
     s2:=0;
     for k:=1 to  j-1 do                {сумма предыдущих}
      s1:=s1+D[i,k];
     for k:=j to 6 do                   {последующих}
       s2:=s2+D[i,k];
     if s1>s2 then                      {вывожу рез}
       for k:=i to  6 do
          writeln('iliment- ', d[z,j],' stoka-',j,'stolbec- ',i);
       writeln('  ')
end;
readln; { TODO -oUser -cConsole Main : Insert code here }
end.

[Stilet]

И в чем сложности?

[dmit365]

уже не в чем)