Помогите довести до ума программу
 

Ввести матрицу 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 to n do
for j:=1 to n do
begin
write('ввод елементов =', i,',',j,'':4);
readln(a[i,j]);
end;
for i:=1 to n do
begin
rez:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>rez
then
rez:=a[i,j]>rez
then
min:= rez;
End;
for i:=1 to n do
begin
if a[i,i]=0
then
for j:=1 to n do
rizn:=rizn-a[i,j];
writeln('rizn=',rizn);
End;
Writeln('min=',min);
readln;end.

Ну, если я правильно понял задание, то как-то так:
А вообще - программа Ваша, сударь, составлена запредельно неряшливо, ошибок - просто море. Поймите: компьютер не понимает "общих соображений", ему нужна абсолютная точность и выверенность каждого значка. А у Вас?
1. Uses CRT. Прекрасно - но где в программе хоть одна команда модуля CRT? Я таковых не увидел.
2. Где константа n? Откуда, интересно, компьютер возьмет данные о размере массивов?
3. В одном месте rasn, в другом - razn, в третьем - rizn. И Вы полагаете, что компьютер поймет, что программист "имеет в виду" одно и то же? И не надейтесь!
4. rez:=a[i,j]>rez - это еще что за ахинея?
5. Ищете минимум, а знак неравенства поставлен так, что находите максимум.
И т.д., и т.п., и проч.