В массиве вещественных чисел элементы с нечетными номерами заменить их квадратным корнем

program pr;
const
  Csize = 100;
var
  a: array [1..Csize] of real;
  i, n: integer;
 
begin
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21);
    write(' ',a[i]:3);
  end;
  for i := 1 to n do
    if i mod 2 <> 0 then
    begin
      a[i] := sqrt(a[i]);
    end;
    writeln;
  writeln('Изменённый массив');
  for i := 1 to n do
    write('  ',a[i]:3:2);
end.

uses  Crt;
const n=10;
type  Tmass=array[1..n] of Real;
var   a:Tmass;
      i:integer;
begin
      ClrScr;
       Writeln('Ichodniy massiv:');
        Writeln;
         Randomize;
       for i:=1 to n do
        begin
          a[i]:=Random(10000)/100;
          Write(a[i]:7:2);
        end;
        Writeln; Writeln;
       Writeln('Konecniy massiv:');
        Writeln;
       for i:=1 to n do
        begin
          if (i mod 2)<>0
           then a[i]:=sqrt(a[i]);
          Write(a[i]:7:2);
        end;
       ReadKey;
end.