Умножить на 3 все элементы во второй половине массива - Free Pascal

Var
  x: Array [1..100] of Integer;
  i,n,s: Integer;
BEGIN
Repeat
 Write('Введите четное количество: ');
 Readln(n);
until n mod 2=0;
Writeln('Исходный массив:');
For i:=1 to n do
begin
  x[i]:=Random(100);
  Write(x[i],' ');
end;
Writeln;
Writeln('Полученный массив:');
For i:=1 to n do
begin
  If i>n div 2 Then
  x[i]:=x[i]*3;
  Write(x[i],' ');
  s:=s+x[i];
end;
Writeln;
Writeln('Ср. арифм. = ',s/n:2:2);
Readln
END.