Помогите довести до ума программу
Ввести матрицу A розмером NxN и вычеслить разницу элементов тех строк, в которых на главной диагонали стоят ноли. Найти минимальный елемент этой матрицы. Program matrica;
uses crt;
var
a:array[1..n,1..n]of integer;
I,j,rasn,min,rez:integer;
begin
for i:=1...