Построить и записать алгоритм определения минимального элемента и его индекса в столбцах матрицы - Turbo Pascal

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

Всем добрый день! Я с просьбой! Задание: построить и записать алгоритм определения минимального элемента и его индекса в столбцах матрицы MxN Кажется я где-то свернула не туда) Глаз замылился уже, помогите, плиз ) Заранее спасибо.

var
    ar: Array[1..n, 1..m] Of LongInt;
    i, j, minI, minJ: 1..n, 1..m;
begin
    Randomize; minI := 1; minJ := 1;
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
            if (ar[minI, minJ] > ar[i, j])
            then
            begin
                minI := i;
                minJ := j;
            end;
        end;
        WriteLn;
    end;
    WriteLn;
    WriteLn('min elem at [', minI, '][', minJ, ']=', ar[minI, minJ]);
end.

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

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

var
    ar: Array[1..20, 1..20] Of integer;
    n, m,i, j, minI, minJ: 1..20;
begin
writeln('Введите размеры матрицы от 1 до 20');
readln(n,m);
Randomize;
minI := 1;
minJ := 1;
for i := 1 to n do
 begin
  for j := 1 to m do
   begin
    ar[i, j] := Random(199) - 99;
    Write(ar[i, j]:4);
    if (ar[minI, minJ] > ar[i, j]) then
     begin
      minI := i;
      minJ := j;
     end;
   end;
  WriteLn;
 end;
WriteLn('min elem at [', minI, '][', minJ, ']=', ar[minI, minJ]);
end.

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

В начале объявляются переменные: ar - матрица, n, m, i, j, minI, minJ - переменные для хранения индексов минимального элемента.
Затем запрашиваются размеры матрицы от пользователя.
Используется функция Randomize для инициализации генератора случайных чисел.
Переменные minI и minJ инициализируются единицами.
Запускается цикл for i := 1 до n do, который выполняется n раз (n - количество строк матрицы).
Внутри цикла запускается вложенный цикл for j := 1 до m do, который также выполняется m раз (m - количество столбцов матрицы).
В каждой итерации вложенного цикла присваивается значение случайной числа из диапазона [199-99] текущей ячейке матрицы ar[i, j].
После завершения вложенного цикла выводится значение текущей ячейки с помощью функции Write(ar[i, j]:4).
Если значение текущей ячейки больше значения минимальной ячейки (minI, minJ), то обновляется значение minI и minJ.
После завершения внешнего цикла выводится минимальное значение и его индексы с помощью функции WriteLn('min elem at [', minI, '][', minJ, ']=', ar[minI, minJ]).
Программа завершается.