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

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

Доброго времени суток знатоки! Помогите решить задачу: Дан массив Х(N, M). Найти минимальный элемент среди отрицательных чисел массива и его местоположение в массиве (строка, столбец).

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

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

  im:=1; jm:=1; mn:=x[1,1];
  for i:=1 to n do for j:=1 to m do
    if mn>x[i,j] then begin
      im:=i; jm:=j; mn:=x[i,j];
    end;
  if mn<0 then WriteLn('x[',im,',',jm,'] = ',mn)
  else WriteLn('отрицательных нет');

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

В этом коде на языке Pascal выполняется поиск минимального элемента в массиве, а также его местоположения.

Переменные:
- im - переменная для хранения номера строки (1..n)
- jm - переменная для хранения номера столбца (1..m)
- mn - переменная для хранения текущего минимального значения
Цель цикла:
- Перебираем все строки (i=1..n)
- Перебираем все столбцы (j=1..m)
Условие цикла:
- Если текущее значение в строке i, столбце j меньше текущего минимального значения, то:
  - Обновляем значения переменных im, jm, mn
После цикла:
- Проверяем текущее минимальное значение
- Если оно отрицательное, то выводим значение на экран В итоге, после выполнения этого кода будет выведено сообщение с минимальным значением и его местоположением в массиве, если таковое имеется. В противном случае будет выведено сообщение отрицательных нет.