Найти максимальный элемент среди отрицательных элементов матрицы, расположенных над побочной диагональю - Free Pascal

Формулировка задачи:

Дана матрица А(4,4). Найти максимальный элемент среди отрицательных элементов матрицы, расположенных над побочной диагональю. Программу написал, но почему-то иногда решает правильно, иногда нет. В чем моя ошибка?

                    Листинг программы
                
 
                        
                          
                    
program mtrica;
uses crt;
const n=4;
var a:array [1..n,1..n] of integer;
i,j,min:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(51)-25;
write(a[i,j]:4);
end;
writeln;
end;
min:=a[1,1];
for i:=1 to n-1 do
for j:=1 to n-1 do
if (a[i,j]>min) and (a[i,j]<0) then min:=a[i,j];
writeln (min);
readkey;
end.

Решение задачи: «Найти максимальный элемент среди отрицательных элементов матрицы, расположенных над побочной диагональю»

Листинг программы

s:=sin(sum3+3*a[2,3]);
write(s:0:3);

Объяснение кода листинга программы

Импортируются модули math и stdio.h.
Объявляются переменные:
- sum3 типа double с нулевым значением,
- a типа double[3][3],
- s типа double,
- i типа int.
Вычисляется значение переменной sum3 как сумма элементов матрицы a по диагонали, начиная с элемента [2,3].
Вычисляется значение переменной s как синус суммы переменных sum3 и 3*a[2,3].
Значение переменной s выводится на экран с помощью функции write.
Значение переменной s приводится к типу string с помощью функции string(s), чтобы можно было использовать функцию write для записи строки.
Дополнительно указывается, что нужно вывести значение переменной s с 0-ой позиции и с 3-мя знаками после запятой.