Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Нужна программа. Задача в программе предлагается ввести 10 чисел с клавиатуры. Необходимо найти номер максимального элемента и минимального. Если есть несколько, вывести все номера. Спасибо.
Задача: Необходимо найти все номера максимального элемента и минимального элемента в массиве. Паскаль..
Создаем один массив, находим минимальное число в массиве, так же находим максимальное число. Затем в цикле сравниваем число массива с минимальным числом, при равенстве числе выводим на экран номер массива. Те же действия с максимальным числом во втором цикле.

program Arr_Task1;

  { Необходимо найти все номера максимального элемента и минимального элемента в массиве. Паскаль}
var
  i, MinNum, MaxNum: integer;
  i_ArrNum: array[1..10] of integer;

begin
  WriteLn('Введите 10 чисел: ');
  for i := 1 to 10 do
  begin
    Readln(i_ArrNum[i]);
  end;
  MinNum := i_ArrNum[1];
  MaxNum := i_ArrNum[1];
  for i := 1 to 10 do
  begin
    if i_ArrNum[i] < MinNum then
      MinNum := i_ArrNum[i];
    if i_ArrNum[i] > MaxNum then
      MaxNum := i_ArrNum[i];
  end;

  WriteLn('Мин число: ', MinNum);
  WriteLn('Макс число: ', MaxNum);
  for i := 1 to 10 do
  begin
    if i_ArrNum[i] = MinNum then
      WriteLn('Номер минимального числа: ', i);
  end;
  for i := 1 to 10 do
  begin
    if i_ArrNum[i] = MaxNum then
      WriteLn('Номер максимального числа: ', i);
  end;
  ReadLn();
end.

Результат:

Необходимо найти все номера максимального элемента и минимального элемента в массиве. Паскаль.

Дополнительно:
Найти сумму элементов массива паскаль (pascal).
Найти минимум и максимум в массиве – Pascal (Паскаль).
Найти сумму элементов массива с четными индексами в паскале.
Сумма элементов (чисел) массива паскаль, random.
Сумма элементов массива, паскаль.
Как вывести таблицу символов в Паскале?