Как открыть папку с майном вместе?

// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.

var a: array [1..10] of real; // возьмем массив из 10 чисел
    i,x      :byte;
begin
  randomize;
  for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000)
  begin
    a[i]:=random(1000);
    writeln (i,' элемент исходного массива ',a[i]);
  end;
  writeln ();
  for i:=1 to 10 do
  begin
      x:=i mod 2; //определяем четный или нет элемент массива
      if x=0 then //если элемент четный
        begin
          a[i]:=a[i]/2;
          writeln (i,' элемент массива  - четный   ',a[i]);
        end
         else      //если элемент нечетный
        begin
          a[i]:=a[i]*2;
          writeln (i,' элемент массива  - нечетный ',a[i]);
        end;
  end;
end.

// Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5

var ish, krat: array [1..30] of word;
    i,j,x      :byte;
begin  j:=1;
  randomize;
  for i:=1 to 30 do //заполняем исходный массив случайными числами (до 1000)
  begin
    ish[i]:=random(1000);
    writeln (i,' элемент исходного массива ',ish[i]);
  end;
  writeln ('находим элементы кратные пяти:');
  for i:=1 to 30 do
  begin
      x:= ish[i] mod 5; //определяем элементы кратные пяти
      if x=0 then
        begin          //и заполняем новый
        krat[j]:=ish[i];
        writeln (j,' элемент нового массива ',krat[j],' равен ',i,' элементу исходного массива');
        j:=j+1;
        end;
   end;
end.