Сформировать новый массив В из элементов массива А, больших 7

program    pr1;
uses       crt;
const      WG=100;
type       tmasi=array[1..WG]of integer;
var        a,b:tmasi;
           i,j,p:byte;
 
procedure pro_vv_mas(var n:byte; var mas:tmasi);
var       kl,i:byte;
begin
     writeln('1-ââîä ñ êëàâèàòóðû; 2-ñëó÷àéíî');
     readln(kl);
     if kl=2 then randomize;
     writeln('Ðàçìåðíîñòü');
     readln(n);
     for i:=1 to n do
     case kl of
     1:begin
            writeln('ââåäè ',i,' ýëåìåíò');
            readln(mas[i]);
       end;
     2:mas[i]:=random(50);
     end;
end;
 
procedure pro_out_mas(n:byte; mas:tmasi);
var       i:byte;
begin
     writeln('ìàññèâ');
     for i:=1 to n do write(mas[i]:5);
end;
 
begin
     pro_vv_mas(j,a); writeln('ìàññèâ-'); pro_out_mas(j,a);
     writeln;
     p:=0;
     for i:=1 to j do if a[i]>7 then begin
                                          inc(p);
                                          b[p]:=a[i];
                                     end;
     if p=0 then writeln('íåò òàêèõ åëåìåíòîâ')else begin
     writeln('ìàññèâ B:'); pro_out_mas(p,b);        end;
end.

p:=0;
     for i:=1 to j do if a[i]>7 then begin
                                          inc(p);
                                          b[p]:=a[i];
                                     end;
     if p=0 then writeln('нет таких елементов')else begin
     writeln('массив B:');