Одномерный массив - Turbo Pascal (29043)

Формулировка задачи:

Нужна помощь, не могу понять в чем проблема. Надо чтобы делились все значения массива, а не только последний его элемент

                    Листинг программы
                
 
                        
                          
                    
var 
    x: array[1..100] of real;
    i,n,k: integer;
begin
    randomize;
    write('Напишите количество элементов в массиве '); read(n);
    write('Напишите число, на которое будут делиться элементы массива '); read(k);
    for i:=1 to n do
     begin
        x[i]:= random(31)-10;
        write(x[i],' ');
        if x[i]>0 then x[i]:=x[i]/k
     end;
    writeln;
    writeln(x[i]);
end.

Решение задачи: «Одномерный массив»

Листинг программы

var
    x: array[1..100] of real;
    i,n,k: integer;
begin
    randomize;
    write('Напишите количество элементов в массиве '); read(n);
    write('Напишите число, на которое будут делиться элементы массива ');
    readln(k);
    writeln('Исходный массив');
    for i:=1 to n do
     begin
        x[i]:=-10+30*random;
        write(x[i]:5:1);
     end;
   writeln;
   writeln('Измененный массив');
   for i:=1 to n do
    begin
     if x[i]>0 then x[i]:=x[i]/k ;
     write(x[i]:5:1);
     end;
  end.

Объяснение кода листинга программы

В данном коде пользователь вводит количество элементов в массиве (n) и число, на которое будут делиться элементы массива (k). Затем выводится исходный массив. Для каждого элемента массива (от 1 до n) переменной x присваивается случайное число от -10 до 30 (включительно), затем это число выводится на экран. Затем выводится измененный массив, где для каждого элемента (от 1 до n) проверяется, положительное ли число в текущем элементе массива (x[i]). Если это так, то элемент делится на k и результат присваивается самому элементу. В конце программы выводится измененный массив.