Не могу найти ошибку в программе

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  N = 10;
  M = 10;
type
  Base = array[0..N,0..M] of integer;
 
//---------------------------------------------------------------------------------------------
(* Процедура замены строки массива
      A      - Массив, где меняем строки
      Index1 - Номер строки куда переставляем
      Index2 - Номер строки откуда переставляем
*)
//---------------------------------------------------------------------------------------------
 procedure ChangeStr(var A: Base; Index1,Index2: Integer);
 var
  i,tmp:integer;
 begin
  for i := 0 to N-1 do
    begin
      tmp := A[Index1,i];
      A[Index1,i]:=A[Index2,i];
      A[Index2,i]:= tmp;
     end;
 end;
//------------------------------ Основная программа -------------------------------------------
 
var
  A:Base;                             // A - исходный массив
  Min: array[0..N-1] of integer ;     // Min - массив минимальных занчений в строке , где 
  i,j,minimum,index:integer;         // индекс элемента = номеру строки исх. массива
  FlagChange: boolean;
begin
  randomize;
  writeln('The original array of integer: ');
  writeln;
 
  minimum := MaxInt;           // Первоначально максимальное  значение integer
 
 
  for i:=0 to N-1 do
    begin
      for j:=0 to M-1 do
        begin
          A[i, j] := random(99)+1;  // Инициалицируем массив случайными числами, исключая 0
          if (minimum>=A[i,j]) then minimum := A[i,j];  // Сразу ищем минимальное число
            write(IntToStr(A[i, j])+'  ');  // Вывод строки исходного массива
        end;
      writeln('');
      Min[i] := minimum;       // Сохраняем минимальное значение строки во всп. массив
      minimum := MaxInt;
    end;
 
  index :=0;                                    // Устанавливем первоначальное значение
  FlagChange := false;                     // Флаг требования замены строк
 
 
  for i:=0 to N-1 do
    begin
 
      minimum := Min[i];
      for j := i+1 to N-1 do
        begin
          if minimum>=Min[j] then
            begin
              minimum := Min[j];
              index := j;
              FlagChange := true;
            end;
        end;
 
      if FlagChange then
        begin
          ChangeStr(A,i,index);  // Меняем строки
          FlagChange := false;
        end;
 
    end;
 
  writeln;
  writeln('The resulting array :');
  writeln;
 
  for i:=0 to N-1 do
    begin
      for j:=0 to M-1 do
        write(IntToStr(A[i,j])+ '  '); // Вывод массива
      writeln('');
    end;
 
  writeln;
  writeln ('Press Enter to continue... ');
 
  readln;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  N = 10;
  M = 10;
type
  Mass = array[1..M] of integer;//если массивы не динамические
  Matr = array[1..N] of Mass;   //то индексы лучше от 1 до N
 
//---------------------------------------------------------------------------------------------
(* Процедура обмена строк матрицы
   A      - Матрица, где меняем строки
   Index1 - Номер строки куда переставляем
   Index2 - Номер строки откуда переставляем
*)
//---------------------------------------------------------------------------------------------
procedure ChangeStr(var A: Matr; Index1,Index2: Integer);
var
 i,tmp:integer;
begin
for i := 1 to M do //размер строки
 begin
  tmp := A[Index1,i];
  A[Index1,i]:=A[Index2,i];
  A[Index2,i]:= tmp;
 end;
end;
//---------------------------------------------------------------------------------------------
(* Процедура обмена элементов массива
   A      - Массив, где меняем элементы
   Index1 - Номер элемента куда переставляем
   Index2 - Номер элемеента откуда переставляем
*)
//---------------------------------------------------------------------------------------------
procedure ChangeMin(var A: Mass; Index1,Index2: Integer);
var
 tmp:integer;
begin
tmp := A[Index1];
A[Index1]:=A[Index2];
A[Index2]:= tmp;
end;
//------------------------------ Основная программа -------------------------------------------
 
var
  A:Matr;         // A - исходная матрица
  Min: Mass;     // Min - массив минимальных занчений в строке
  i,j,minimum:integer;
begin
randomize;
writeln('The original array of integer: ');
for i:=1 to N do
 begin
  minimum := MaxInt;
  for j:=1 to M do
   begin
    A[i, j] := random(99)+1;  // Инициалицируем массив случайными числами, исключая 0
    if (minimum>=A[i,j]) then minimum := A[i,j];  // Сразу ищем минимальное число
    write(A[i, j]:4);  // Вывод строки исходного массива
   end;
  Min[i] := minimum;   // Сохраняем минимальное значение строки во всп. массив
  writeln(Min[i]:6);  //вывод минимального
 end;
for i:=1 to N-1 do
for j:=i+1 to N do
if Min[i]>min[j] then
 begin
  ChangeStr(A,i,j);//обмениваем строки  матрицы
  ChangeMin(Min,i,j);//обмениваем элементы массива
 end;
writeln('The resulting array :');
for i:=1 to N do
 begin
  for j:=1 to M do
  write(A[i,j]:4); // Вывод матрицы
  writeln(Min[i]:6);  //Вывод мин.
 end;
writeln ('Press Enter to exit... ');
readln;
end.