Program Replace;
var userArray:array[1..100] of integer; count, i, minIndex, maxIndex : integer;

begin
    // Ввод количества элементов
    // Количество элементов должно быть больше 0 и меньше 100, а так же целым числом
    repeat
        writeln('Enter the number of items(must be less then 100 and more then 0):');
        {$I-}readln(count);{$I+}
    until (IOresult = 0) and (count > 0) and (count < 100);

    // Ввод элементов
    writeln('Enter items (all mast be integer)');
    for i := 1 to count do
    begin
        // Ввод i-го элемента который должен быть целым числом
        repeat
            write(i, ' element : ');
            {$I-}readln(userArray[i]);{$I+}
        until IOresult = 0;
    end;
    writeln;

    // Изначально устанавливаем первый элемент как максимальный и минимальный
    minIndex := 1;
    maxIndex := 1;
	// Поиск минимального и максимального элементов
    for i := 1 to count do
    begin
        if userArray[i] >= userArray[maxIndex] then maxIndex := i;
        if userArray[i] <= userArray[minIndex] then minIndex := i;
    end;
    writeln;
    // Вывод минимального и максимального элемента
    writeln('Minimum item is ', minIndex, ' : ', userArray[minIndex]);
    writeln('Maximum item is ', maxIndex, ' : ', userArray[maxIndex]);

    // Мменяем местами элементы (без буфера)
    if minIndex <> maxIndex then
    begin
        userArray[minIndex] := userArray[minIndex] + userArray[maxIndex];
        userArray[maxIndex] := userArray[minIndex] - userArray[maxIndex];
        userArray[minIndex] := userArray[minIndex] - userArray[maxIndex];
    end;

    // Вывод полученного массива
    writeln(' ' : 5,'Received array :');
    for i := 1 to count do write (userArray[i] : 8);
    writeln;

    readln;
end.