Дан массив вещественных чисел. Каждый элемент, больший 10,заменить на его квадратный корень- Pascal(Паскаль)

Program summa;

Var
  k: real;
  a: array [1 .. n] of real;
  I, n: byte;

Begin
  writeln('Введите количество n');
  Readln(n);
  For I := 1 to n do
    a[I] := random(30);

  begin
    for I := 1 to n do
      if a[I] > 10 then
        k := sqrt(a[I]);
  end;
  writeln(k);

end.