Задача на массив!

[Fatality]

Народ, выручайте! Срочно нужно решение этой задачи! Плиз помогите!!!
Задана прямоугольная таблица А[1:N, 1:N], элементы которой равны 0 или 1, причем А[i,i] для любого i. Необходимо найти, если они есть, такие строку i нулевое и столбец j нулевое, чтобы в столбце j нулевое были все 0, а в строке i нулевое все 1(кроме элемента А[i нулевое, i нулевое], равного 0)

[Stilet]

Ну и в чем проблемы?
Например строку найдем так:

for i:=1 to n do begin
 for j:=1 to n do begin 
  summ:=summ+a[i,j];
 end;
 if summ=0 then // строкаi содержит все нули
end;

Два таких же цикла после того как введеш данные прикрути на проверку a[j,i] и получиш рассчет summ по колонкам.