Заполнить случайным образом двумерный массив размерностью n на n - Turbo Pascal

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

Заполнить случайным образом двумерный массив размерностью n на n. Обнулить минимальные элементы в каждой строке. Вывести оба массива на экран.

uses Crt;
const N = 3;  {Число строк}
         M = 4:  {Число столбцов}
var A: array [1..N, 1..M] of integer;
           i, j, mini, mi, mj: integer;
begin
ClrScr;
Randomize;
   for i:= 1 to N do
   for j:= 1 to M do
A[i, j]:= random(80) – 20;
{Вывод матрицы на экран по строкам}
   for i:= 1 to N do begin
     for j:= 1 to M do
    write(A[i, j]:3);
         writeln;
     end;
{Поиск min значения ассива и его индекса}
        mini:= 100;
        writeln;
   for i:= 1 to N do begin
     for j:= 1 to M do
if mini > A[i, j] then begin
   mini:= A[i, j];  mi:= I;  mj:= j;
    writeln(' Min эл-т: ', mini);
  for j:= 1 to M do
    end;  end;
       writeln;
    readln
end.

На выходе имеем:

При 1-м запуске                     При 2-м запуске
со строкой Randomize            со строкой Randomize
выходят 3 строки min.            выходят 2 строки min.
  12   18  -11   37                          39   36   38   28
  7   46   42  -19                            3   10   31  -13
15   51   28   -8                           16   36   27   34
 
Min эл-т:   12                              Min эл-т:   39
Min эл-т:   7                                Min эл-т:   3

Min эл-т: -8

      При 1-м запуске          -20  -18   48   -4
без строки Randomize          1   33     5   -8
выходит 1 строка.                 9   14  -14   17
                                               Min эл-т:   -20

Это что за чудеса? Да и результата нет. В чём дело.

Решение задачи: «Заполнить случайным образом двумерный массив размерностью n на n»

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

uses crt;
const n=3;
      m=4;
var a:array [1..n,1..m] of integer;
    i,j,mj:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-20+random(80);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  mj:=1;
  for j:=2 to m do
  if a[i,j]<a[i,mj] then mj:=j;
  a[i,mj]:=0;
 end;
writeln('Замена минимальных элементов в строках на 0');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

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

Установка начального значения для случайной генерации чисел (randomize)
Вывод исходной матрицы (writeln('Исходная матрица'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=-20+random(80); write(a[i,j]:4); end; writeln; end;
Замена минимальных элементов в строках на 0 (for i:=1 to n do begin mj:=1; for j:=2 to m do if a[i,j]<a[i,mj] then mj:=j; a[i,mj]:=0; end;)