Сумма столбца и строки в матрице

[Lordigan]

Создать программный комплекс, реализующий ввод данных и вывод данных из файла, просмотр входных и выходных данных. Программа заполняет целочисленную матрицу А случайными числами в диапазоне от -10 до 20. Программа вводит целое к, находит сумму тех элементов к-того столбца и к-той строки, которые кратны двум . Программа переписывает все элементы к-того столбца и к-той строки в файл. При выводе матрицы на экран выделить зеленым цветом найденные элементы.

У меня неполучается найти сумму к-того столбца и к-той строки, работаю в Stringgrid(Delphi), если кто то работал со Stringgrid ом, помогите пожалуйста.

[RUSt88]

используй массив для поиска!!! а стрингрид только для вывода! чему вас учат? нельзя делать привязку алгоритма к интерфейсу!!!

[Lordigan]

Прилагаю начало своей проги

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, ComObj, OleServer;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button3: TButton;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button4: TButton;
Edit3: TEdit;
Label3: TLabel;
Button5: TButton;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
E:variant;


implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var a:array of integer;
i,j:integer;
begin
stringgrid1.colcount:=strtoint(edit 1.text);
stringgrid1.rowcount:=strtoint(edit 2.text);
for i:=0 to stringgrid1.colcount do
for j:=0 to stringgrid1.rowcount do
stringgrid1.cells[i,j]:=inttostr(random(2));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
E:=CreateOleObject('Excel.Applicati on');
if not OpenDialog1.Execute then exit;
E.WorkBooks.Open(OpenDialog1.FileNa me);
for i:=1 to StringGrid1.colCount do
for j:=1 to StringGrid1.rowcount do
StringGrid1.Cells[i-1,j-1]:=E.ActiveSheet.Cells[i,j].Value;
end;


procedure TForm1.Button3Click(Sender: TObject);
var
i,j:integer;
begin
E:=CreateOleObject('Excel.Applicati on');
if not saveDialog1.Execute then exit;
E.WorkBooks.Open(saveDialog1.FileNa me);
E.Visible:=true;
for i:=1 to StringGrid1.colCount do
for j:=1 to StringGrid1.rowCount do
E.ActiveSheet.Cells[i,j].Value:=StringGrid1.Cells[j-1,i-1];
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
application.terminate;
close;
end;

Число К
procedure TForm1.Button5Click(Sender: TObject);
var
k:integer;
i,j:integer;
begin
k:=strtoint(edit3.Text);
for i:=0 to stringgrid1.ColCount do
for j:=0 to stringgrid1.RowCount do
if k=j then
if k=i then
edit4.Text:=inttostr(strtoint(strin ggrid1.cells[k,j])+strtoint(stringgrid1.cells[k,j]));
end;
end.

Не знаю как сделать