[YorikBir]

Задача:
В заданной матрице С записать на место отрицательных элементов нули, а на место положительных - единицы. Исходную и полученную матрицы вывести в общепринятом виде.

На форме есть 3 StringGrida и кнопка, не могу вывести измененную матрицу в 3 StringGrid. Помогите.

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
x:array[1..10,1..10] of integer;
begin

with StringGRid1 do
for i:=0 to RowCount do
for j:=0 to ColCount do
StringGrid2.Cells[i,j]:=StringGrid1.Cells[i,j];

end;

Begin
 for i:=1 to m do
    for j:=1 to n do
        begin
        if x[i,j]<=0 then x[i,j]:=0 else x[i,j]:=1;