Изменить порядок следования элементов массива на обратный , , составить программу в !

А нету желания уточнить? Тебе на ассемблере, брейнфаке или как?

Var
  i,j:integer;
  a,b:array[1..10]of integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do
  begin
  a[i]:=random(10);
  write(a[i],' ');
  end;
writeln;
j:=1;
writeln('Измененный массив: ');
for i:=10 downto 1 do
  begin
  b[j]:=a[i];
  write(b[j],' ');
  j:=j+1;
  end;
end.