[free Pascal]: Получить новый массив путём удаления из заданного массива все числа, больше заданного R

[Jon_Morgan]

Дана последовательность P[i] i=1,2...n (n<=30). Получить новую последовательность X[i], выбросив из исходной все числа, большие заданного числа R. ( Не использую функции и процедуры)
Нужно использовать именно 2 массива P и X, не могу понять как перенести цифры во второй массив

program main;
uses crt;
var P, X:array[1..30] of integer;
      i, n, R:integer;
begin
 clrscr;
 readln (n, R);
 for i:=1 to n do P[i]:random(100);
 for i:=1 to n do write (P[i], ' ');
 writeln (' ');
 for i:=1to n do 
 if (P[i]>R) then write (P[i], ' ');
 readln;
end.

[Plague]

k := 0;
for i := 1 to n do 
 if (P[i] > R) then 
  begin
    k := k+1;
    X[k] := P[i];
  end;

for i:=1 to k do write (X[i], ' ');