напишите программу для delphi

задана матрица размера N*M.получить массив В, присвоив его k-му элементу значение 1 если k-ая строка матрица симметрична, и значение 0 в противном случае.