Определить, в какой магазин в первую очередь необходимо завести новую партию товара

const
   countShop = 5;
   nameShop : array[1..countShop] of String = ('ЦУМ', 'ГУМ', 'Немига', 'Восточный', 'Первомайский');
   
type shop = record
   name          : String;
   countProducts : Integer;
end;
  
//######################################################################
 
function toString(arr : array of shop) : String;
var
   i : integer;
begin
   result := '';
   if length(arr) > 0 then
   begin
      for i := 0 to length(arr) - 1 do
      begin
         result := result + arr[i].name + ' = ' + arr[i].countProducts + ' шт.' + #13;
      end;
   end;
   toString := result;
end;
 
//######################################################################
 
procedure fillShop(var arr : array of shop; startRange : integer; endRange : integer);
var
   i : integer;
begin
   if length(arr) = countShop then
   begin
      randomize;
      for i := 1 to countShop do
      begin
         arr[i - 1].name := nameShop[i]; 
         arr[i - 1].countProducts := random(endRange + 1 - startRange) + startRange;
      end;
   end;
end;
 
//######################################################################
 
function indexMinProducts(arr : array of shop) : integer;
var
   min : integer;
   i   : integer;
   
begin
   result := 0;
   if (length(arr) > 0) then
   begin
      min := arr[0].countProducts;
      for i := 1 to length(arr) - 1 do
      begin
         if arr[i].countProducts < min then
         begin
            min := arr[i].countProducts;
            result := i;
         end;
      end;
   end;
   indexMinProducts := result;
end;
 
//######################################################################
 
var
   arr      : array of shop;
   indexMin : integer;
   
begin
   setLength(arr, countShop);
   fillShop(arr, 0, 100);
   writeln('Магазины и кол-во товаров в них:', #13, toString(arr));
   indexMin := indexMinProducts(arr);
   writeln('В первую очередь требуется завести товар в магазин "', arr[indexMin].name, '". У него всего товара ', arr[indexMin].countProducts, ' шт.');
end.