Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
хочу попросить у вас помощи в решении непростой для меня задачи.
Дана вещественная матрица A размером п×n. Построить массив B, каждый элемент которого принимает значение true, если в строке матрицы A существует элемент, делящий ее на две части с одинаковой суммой элементов в каждой.
Матрица загружается из текстового файла.

С одной задачей я вроде справился, матрица загружается из текстового файла а вот с другой не могу, вроде суть немного улавливаю, что массив B - одномерный. Количество элементов в нём равно количеству строк в матрице А.
Далее абсолютно ничего понять не могу...

Что-то вроде пытался сделать, теперь вообще в stringGrid ничего не выводит.........
Как возможно реализовать данную задачу??? Подскажите пожалуйста (


Приложение:

public
z:integer;

{ Public declarations }
end;

var
Form1: TForm1;

implementation




{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
const
N = 100;

var
A : array[1..N, 1..N] of Extended;
B : array[1..N] of Boolean;
SumL, SumR : Extended;

f1:TextFile;
I,J,k:integer;
L, R: Integer;
SameValue: Boolean;
begin
Assignfile(f1, 'f1.txt');
Reset(f1);
ReadLn(f1, z);
StringGrid1.ColCount:=z+1;
StringGrid1.RowCount:=z+1;
//Перебор строк матрицы А.
For I:=1 to z do

B[I]:=False;
For J:=2 to N - 1 do begin

//Подсчёт суммы левой половины строки.
SumL:=0;
for L:=1 to J - 1 do begin
SumL := SumL + A[I,L];
end;
//Подсчёт суммы правой половины строки.
SumR:=0;
for R:=J + 1 to N do begin
SumR:=SumR + A[I, R];
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.