Дана последовательность Рi, i=1,2…n. (n 30). Получить новую последовательность Xi, выбросив из исходной все числа, большие заданного числа R- Pascal(Паскаль)

var arr:array[1..30] of integer;
    arr2:array[1..30]of integer;
    R,i,k:integer;
begin
for i:=1 to 30 do
begin
 arr[i]:=random(10);
 write(arr[i]:2);
end;
writeln;
 
readln(R);
 
k:=1;
for i:=1 to 30 do
if arr[i]<=R then begin arr2[k]:=arr[i]; k:=k+1; end;
 
for i:=1 to k-1 do
 write(arr2[i]:2);
writeln;
end.