Проверить рациональность выполнения программы pascal

Помогите, пожалуйста, проверить, рационально ли выполняется программа, нет ли в ней лишних проверок

const
t = 100;

var
a: array[1..t, 1..t] of integer;
i, j, n, m, index_i, index_j: integer;

begin

repeat
write('Ввведите размерность n<=100 и m<=100 для матрицы A: ');
readln(n, m);
until (n >= 1) and (n <= 100) and (m >= 1) and (m <= 100);

writeln('Введите матрицу A :');
for i := 1 to n do
for j := 1 to m do
begin
read(a[i, j]);
end;

index_i := 0;
index_j := 0;

for i := 1 to n do
for j := 1 to m do
begin
if index_i = 0 then
if (a[i, j] < 0) and ((i + j) mod 2 = 1) then {проверка, является ли наш элемент отрицательным с нечетной суммой индексов}
begin
index_i := i; {если да, запоминаем его позицию}
index_j := j;
end
else if (a[i, j] < 0) and (index_i <> 0) and (a[i, j] > a[index_i, index_j]) and ((i + j) mod 2 = 1) then
{в этом IF проверка index_i <> 0 нужна для того, чтобы при index_i = 0 мы не вышли за границы массива при проверке a[i, j] > a[index_i, index_j] }
begin
index_i := i; {если условия выполнены, запоминаем позицию минимального отриц с нечет суммой индексов}
index_j := j;
end;
end;
if index_i = 0 then writeln('Ответ: нет таких элементов')
else writeln('Ответ: ', a[index_i, index_j]);
end.