Выполнить реверс массива из 10 элементов,заполненного случайными числами в интервале [-100;100].

readln(n);for i:=1 to n doa[i]:=random(100); //тут можно ввести макс. значение для рандомаk:=n div 2;for i:=1 to k dobegint:=a[i]; a[i]:=a[k-i+1]; a[k-i+1]:=t;end;inc(k);for i:=k to n dobegint:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t;end;for i:=1 to n dowrite(a[i],); writeln;readln;end.