Задан массив из 10 вещественных чисел. поменять значениями второй и третий элемент массива.

Var a:array[1..5] of integer; p:integer;
begin
for i:=1 to 5 do
 begin
  a[i]:=random(10)+1;
  write(a[i]:3);
 end;
p:=a[2];
a[2]:=a[3];
a[3]:=p;
for i:=1 to 5 do
 begin
  write(a[i]:3);
 end;
end.