Дан массив вещественных чисел. вывести на экран новое состояние массива , в котором все элементы с нечётными номерами заменить на их квадратный корень.

Uses crt;
const max=100;
var a: array [1..max] of real;   
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do   
begin   
a[i]:=random(100);   
 write(a[i]:7:2);   
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do   
begin   
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);   
write(a[i]:7:2);   
end;   
end.