C ++. Создать два параллельных массивы, сохраняют названия товаров и продаж товаров. Сортировать массивы по росту числа продаж. Найти три наиболее популярные товары и три наименее популярные товары. Пользоваться алгоритмом прямого выбора.

Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
  Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
  Исправляем N:N div 10; на N:= N div 10;
 
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193

Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do

После всех исправлений код программы стал таким:
var
  N, k: integer;
begin
  readln(N);
  k := 9;
  while N > 10 do
  begin
    if (N mod 10 < k) then k := N mod 10;
    N := N div 10;
  end;
  write(k)
end.

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(5,5,-9,9);
  a.Println(3); Writeln(15*'-');
  var s:=a.ElementsByRow.GroupBy(t->t).Select(t->(t.Key,t.Count))
      .Where(t->t[1]>1).OrderBy(t->t[0]);
  var c:=a.ElementsWithIndexes.OrderBy(t->t[0]).ToArray;
  Writeln('Знач. Кол-во Индексы');
  foreach var p in s do begin
    Write(p[0]:3,p[1]:7,'   ');
    var q:=p[0];
    var s1:=c.IndexesOf(t->t[0]=q);
    foreach var k in s1 do
      Write('(',c[k][1]+1,',',c[k][2]+1,') ');
    Writeln
    end
end.