Поначалу задано число N - количество частей в массиве. Дальше через

var
    i, n : integer;                      // объявляем переменную целочисленного типа.
    arr : array of integer;          // объявляем массив.
Begin
       readln(n);                       // задаем размер массива.
       setlength(arr, n);            // выделяем память под массив.
       for i:= 0 to n-1 do        // начало цикла.
          begin
              arr[i] := random(0, 100); // наполняем элемент массива с индексом i случайным числом.
              if arr[i] mod 2 = 0 then    //проверяем четность элемента массива.
              write(arr[i], );              // вывод четного элемента массива на экран.
          end;
End.