Задан массив из 12 вещественных чисел. Поменять местами два элемента массива, номера которых вводятся с клавиатуры. Вывести элемент после замены.

Var 
 n,i,k,m:integer;
  x:real; 
 a:array[1..100]of real;
begin 
 //read(n); 
 n:=12;
  for i:=1 to n do 
   read(a[i]) ; 
 read(k,m); 
 x:=a[k]; 
 a[k]:=a[m]; 
 a[m]:=x; 
for i:=1 to n do   
 write(a[i]:1:6, );   
 readln;readln;
end.