Функция с рандомайзером внутри цикла работает некорректно

function RandomRoute (n : integer; a : TMatrix) : List<integer>;
var
  k,i,j,iRand, pathLength: integer;
  flag : boolean;
  tempList : List<integer> := new List<integer>;
Begin
  randomize; 
   for k := 0 to (n-1) do
   begin
    repeat
      iRand := random(0, (n-1));
      if (tempList.Contains(iRand)) then       
      begin
        flag := false;
        //Writeln('iRand = ', iRand);
        //Writeln('Не подходит');
      end
      else
      begin
        flag := true;
        tempList.Add(iRand);
      end;            
    until (flag);
   end;   
  tempList.Add(tempList[0]);    
  pathLength := 0;
  for var z : integer := 0 to (n-1) do
  begin
    i := tempList[z]; j := tempList[z+1];
    pathLength := pathLength + a[i,j];
  end;
   tempList.Add(pathLength);
   //Writeln('Случайный путь: ', tempList);
   Result := tempList;
End;

BEGIN
  var randRoute : List<integer> := new List<integer>;
  var minRoute : List<integer> := new List<integer>;
  routeLength := 0; 
     
      
  writeln ('Введите количество городов:');
  readln (n); // количество вершин
  writeln ('Введите точку отправления?');
  readln (firstcity);
  MatFullRandom(n, mass); 
  massCopy := mass;
  
  DispMat (n, mass);
  GreedyAlg(firstcity, n, mass);
 
  Writeln ('СЛУЧАЙНЫЕ ПУТИ:');
 
  randRoute := RandomRoute(n, massCopy);
  minRoute := randRoute;
  for var z : integer := 0 to 10 do
    begin      
      randRoute := RandomRoute(n, massCopy);
      if (randRoute.Last < minRoute.Last) then minRoute := randRoute;
      writeln('Случайный путь ', randRoute);    
    end;
 
  writeln('Наилучший из случайных: ',minRoute);
  MatrixRandomRoute(n, minRoute, massCopy, massRed);
  DispMat(n, MassRed);
  DrawGraph(n, mass);
 
END.