Дан массив вещественных чисел. Каждый элемент,больший 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 := a[I] * a[I];
  end;
  writeln(k);

end.