Все элементы массива, значение которых меньше среднего арифметического, увеличить в К раз

const n=10;
var a: array[1..n] of integer;
    sum,s: real;
    i,k: integer;
begin
  sum:=0;
  readln(k);
  for i := 1 to n do
  begin
    readln(a[i]);
    sum:=sum+a[i];
  end;
  s:=sum/n;
  for i := 1 to n do
  begin
    if a[i]<s then a[i]:=a[i]*k;
    writeln(a[i])
  end;
  readln
end.

const
    eps = 0.0001;
var
    a: Array[Byte] Of Integer;
    i, n: Byte;
    sum: Double;
    k: Integer;
begin
    repeat
        Write('n='); ReadLn(n);
    until (n > 0);
    Randomize; Write('A:'); sum := 0;
    for i := 0 to n - 1 do
    begin
        a[i] := Random(101) - 50;
        Write(a[i]:4);
        sum := sum + a[i];
    end;
    sum := sum / n; WriteLn;
    Write('k='); ReadLn(k); Write('A modified:');
    for i := 0 to n - 1 do
    begin
        if (sum - a[i] > eps)
        then
            a[i] := a[i] * k;
        Write(a[i]:7);
    end;
end.