[LostPulse]

Задана матрица А размером NxM. Получить массив В, присвоив его к-му элементу значение 1,если к-я строка матрицы симметрична и значение 0 в противном случае.
Ошибка в том,что программа выдает во 2 стринггрид только каждый 5ый ответ.притом не верный
в чем проблема?

Код:

procedure TForm5.Button4Click(Sender: TObject);
 var
  i,j:byte;
  A:array [1..100,1..100] of Integer;
  b: Boolean;
  n,m:Byte;
begin
  m:=SpinEdit2.Value;
  N:=SpinEdit1.Value;
  for j := 0 to m - 1 do
    begin
      b:=True;
      for i:=0 to (N div 2) do
      begin
      if a[i,j]=a[n-i,j] then
      b:=False;
      end;

      if b = False then
        StringGrid2.Cells[0, i] := '0'
      else
        StringGrid2.Cells[0, i] := '1';
    end;

end;
end.

Админ: Пользуемся тегами для оформления кода!

2)переделать из паскаля в делфи
http://www.cyberforum.ru/post1024721.html
нужно упорядочить 2-умерный массив по возрастанию элементов каждой строки
выручайте!очень нужно!!!