Помогите пожалуйста! Завтра экзамен не буду допущен без программы.

Перебрать номера всех строк, элемент номер строки=номер столбца нулевой? - перебрать столбцы этой строки и заменить на нули.

Заменяет, если нуль есть на главной или на побочной диагонали:

const
N = 5;
var
a: array [1..N, 1..N] of integer;
i, j: integer;
begin
randomize;
writeln('исходная матрица: ');
for i := 1 to N do begin
for j := 1 to N do begin
a[i, j] := random(4);
write(a[i, j]:3);
end;
writeln;
end;
for i := 1 to N do
if (a[i, i] = 0) or (a[i, N - i + 1] = 0) then
for j := 1 to N do a[i, j] := 0;
writeln('результат: ');
for i := 1 to N do begin
for j := 1 to N do write(a[i, j]:3);
writeln;
end;
end.