Формирование нового массива из имеющегося

uses
    crt;
    
var
    B, X, Number: array [1..20] of Integer;
    i, k, j: Integer;
    
begin
    clrscr;
    read(k);
    writeln("Исходный массив");
    randomize;
    for i := 1 to k do
    begin
        B[i] := random(20);
        write("  ", B[i]);
    end;
    j := 0;
    for i := 1 to k do
    begin
        if B[i] > i then
        begin
            j := j + 1;
            X[j] := B[i]; 
            Number[j] := i;
        end;
    end;
    writeln("Новый массив");
    for i := 1 to j do
        write("  ", X[i]);
    writeln("Массив номеров элементов");
    for i := 1 to j do
        write("  ", Number[i]);
    readkey;
end.

for i := 1 to k do
begin
if B[i] > i then
begin
j := j + 1;
X[j] := B[i]; 
Number[j] := i;
end;

uses crt;
const nmax=20;
var b,c:array[1..nmax] of integer;
    k,i,p,n:integer;
begin
clrscr;
repeat
write('k=');readln(k);
until (k>0)and(k<=nmax);
Writeln('massiv B:');
for i:=1 to k do read(b[i]);
readln;
p:=0;
for i:=1 to k do
if b[i]>i then
   begin
     writeln('nomer=',i,'  znachenie=',b[i]);
     p:=1;
     break;
   end;
if p=0 then writeln('Takogo elementa net!');
n:=0;
for i:=1 to k do
if b[i]>i then
   begin
     n:=n+1;
     c[n]:=b[i];
   end;
writeln('Massiv C:');
for i:=1 to n do
write(c[i],' ');
readln
end.