Автоматически задаётся массив из 15 элементов. Переставить их в обратном порядке. Паскаль!

var

a : array [1 ... 15] of real;

i : integer;

c : real;

begin

randomize;

for i : = 1 to 15 do

begin

a[i] : = random (100);

write (a[i], ' ');

end;

writeln;

for i : = 1 to 7 do

begin

c : = a[i];

a[i] : = a[15 - i + 1];

a[15 - i + 1] : = c;

end;

for i : = 1 to 15 do

write (a[i], ' ');

readln;

end.