Var
  arr : array [1..10] of integer; //Объявляем массив
  i, min, max : integer;         //Индекс, позиция минимального элемента, позиция максимального элемента
begin
  min := 1;
  max := 1;

  for i := 1 to 10 do
    arr[i] := Random(20) - 10;   //Заполняем массив
 
  for i := 2 to 10 do            //Находим позицию максимального элемента
    if arr[i] > arr[max] then
      max := i;

  for i := 2 to 10 do            //Находим позицию минимального элемента
    if arr[i] < arr[min] then
      min := i;

  writeln('Максимальный элемент: ', arr[max], '; его позиция: ', max); 
  writeln('Минимальныйй элемент: ', arr[min], '; его позиция: ', min);
end.