Программа в pascal. Создать линейный числовой массив b[10]. Заполнить его целыми числами интервала (-10,10) . В данном числовом массиве поменять местами максимальные и минимальные элементы

1. Современное решение// PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(10,-10,10); a.Println;  Swap(a[a.IndexMax],a[a.IndexMin]); a.Println;end.Пример-4 4 5 9 8 -3 -10 -9 -2 -2-4 4 5 -10 8 -3 9 -9 -2 -22. Решение в стиле "ТурбоПаскаль 1983г."var  i,imax,imin:integer;  a:array[1..10] of integer;begin  Randomize;  imax:=1;  imin:=1;  for i:=1 to 10 do begin    a[i]:=Random(21)-10;    Write(a[i],' ');    if a[i]<a[imin] then imin:=i    else      if a[i]>a[imax] then imax:=i    end;  Writeln;  i:=a[imax]; a[imax]:=a[imin]; a[imin]:=i;  for i:=1 to 10 do    Write(a[i],' ');  Writelnend.