Проверка, что на побочной диагонали есть хотя бы один чётный по значению элемент, равный заданному числу — Pascal(Паскаль)

program pro;

label 1;

var
  A: array [1 .. 100, 1 .. 100] of integer;
  i, j, n: integer;
  z: integer;

function proverka(z: integer): boolean;
var
  i, j: integer;
  rezult: boolean;
begin
  rezult := false;
  for i := 1 to n do
    for j := 1 to n do
      if (i + j - 1 = n) and (A[i, j] = z) then
        rezult := true;
  proverka := rezult;
end;

begin
  write('Размер Матрицы = ');
  readln(n);

  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end;
  writeln;
  write('введённый массив: ');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:3, ' ');
  end;
1:
  writeln;
  write('Введите ЗАДАННЫЙ чётный элемент: ');
  readln(z);
  if odd(z) then
  begin
    write('ERROR: вы ввели нечётное ');
    goto 1;
  end;

  writeln;
  writeln('Ответ проверки: ');
  if proverka(z) = true then
    writeln('ВЕРНО')
  else
    writeln('НЕ ВЕРНО');

  readln;

end.