НУЖНА ПОМОЩЬ В ПАСКАЛЕ Имеются два одномерных массива А, В длиной n, где n- нечетное число.Поменятьв каждом из массивов элементы местами – первый с последним, второй с предпоследним и т.д. Длину массивов запросить у пользователя. Элементы массивов А и В сформировать с помощью функции random(10) в одном цикле. В программе оформитьдве процедуры: для перестановки элементов массива и для вывода массива на экран. Вывести на чистый экран исходные и полученные массивы.

uses Crt;

procedure MySwap(a:array of integer);
begin
  var n:=a.Length;
  for var i:=0 to n div 2 do Swap(a[i],a[n-i-1])
end;

procedure MyPrint(txt:string; a:array of integer);
begin
  Print(txt); a.Println
end;

begin
  var n:=ReadInteger('n=');
  var a:=new integer[n];
  var b:=new integer[n];
  Randomize;
  for var i:=0 to n-1 do begin
    a[i]:=Random(10); b[i]:=Random(10);
    end;
  ClrScr;
  MyPrint('Исходный А :',a); MySwap(a); MyPrint('Результат А:',a);
  MyPrint('Исходный B :',b); MySwap(b); MyPrint('Результат B:',b)
end.

1. В условии задачи ну просто все сделано, чтобы она была написана как можно длиннее... Уникально! И это выдается за обучение...