Сформировать новый массив из элементов кратных заданному числу и расставить его элементы в обратном порядке — Pascal(Паскаль)

program zadacha7;
uses crt;
type mass=array[1..50] of integer;
var x,yy:mass; i,n,y,j:integer;

procedure p1(var n:integer; var x:mass);
          begin
          write('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® н«Ґ¬Ґ®в®ў ¬*ббЁў* n=');
          readln(n);
          for i:=1 to n do
          begin
          x[i]:=random(10)+1;
          writeln(x[i]);
          end;
          end;
procedure p2(n:integer; x:mass; var y:integer; yy:mass);
          begin
               write('‚ўҐ¤ЁвҐ §*¤***®Ґ зЁб«® y=');
               readln(y);
               writeln('Єа*в*лҐ y');
               j:=0;
               for i:=1 to n do
               if x[i] mod y = 0 then
                  begin
                  writeln(x[i]);
                  inc(j);
                  yy[j]:=x[i];
                  end;
                  writeln('new massiv');
               for i:=j downto 1 do
               writeln(yy[i]);
               end;

begin
clrscr;
randomize;
p1(n,x);
p2(n,x,y,yy);
readln
end.