Привет, я пишу прогу которая меняет половинки массива местами, но почему-то вторую половинку она обнуляет, как быть?

program p;
var
a,b:array[1..10] of real;
i:integer;
begin
for i:=1 to 10 do
begin
writeln('vvedide element',i);
readln(a[i]);
end;
for i:=1 to 5 do
a[i]:=b[i-5];
for i:=6 to 10 do
a[i]:=b[1+5];
for i:=1 to 10 do
write('  ',a[i]:1:1);
readln;
end.

for i:=1 to 5 do begin
  b[i] := a[i+5]; b[i+5] := a[i];
end;
for i:=1 to 10 do write('  ', b[i]:1:1);

Thank you very match!