Массив: В массив R переписать элементы массива D(N), значения которых удовлетворяет условию |m-D(i)|<=p

const N = 10;
var
    d: array[1..N] of integer;
    i: byte;
    m: real;
    sum,p: integer;
   begin
randomize;
p := random(1000);
writeln(p);
readln;
 
begin
    randomize;
    for i:=1 to N do d[i]:=random(500)+1;
    sum := 0;
    for i:=1 to N do sum := sum + d[i];
    m := sum/N;
 
    
    for i:=1 to N do write(d[i]:3);
    writeln;
 
    writeln('Среднее арифм.: ',m:4:2);
 
   
    for i:=1 to N do if abs(m-d[i])<=p then write(d[i]:3);
    writeln;
    end;
end.

program Project1;
var
  r,d: array[1..50] of real; // Переменные для хранения массивов.
  p: real;                   // Переменная для хранения значения случайного числа.
  m: real;                   // Переменная для хранения значения среднего арифметического элементов массива.
  i: integer;                // Вспомогательная переменная для организации циклов.
  n: integer;                // Переменная для хранения значения количества элементов массива.
  vib: integer;              // Вспомогательная переменная для организации ввода в массив.
  sum: real;                 // Промежуточная переменная для вычисления суммы значений элементов массива.
  k: integer;                // Вспомогательная переменная для организации заполнения массива.
begin
  Randomize;
  Writeln('Введите значение количества строк:');
  Readln(n);
  Writeln('Введите 1, если ввод чисел будет осуществляться в ружном режиме');
  Writeln('Введите 2, если числа будут заданы генератором случайных чисел');
  Readln(vib);
  case vib of
  1: for i:= 1 to n do
       begin
        writeln('Введите элемент ',i,':');
        Readln(d[i]);      //  Ввод значения элемента массива в ручном режиме.
       end;
  2: for i:=1 to n do
        d[i]:= (random(1001) - 500)/10; // Присвоение случайного значения элементам массива.
 end;
 writeln('Массив D(n)');
 sum:= 0;             // Установка переменной в нуль.
 for i:= 1 to n do
   begin
     write(d[i]:6:1);    // Вывод элементов массива на экран.
     if i mod 10 = 0 then
       writeln;
     sum:= sum + d[i];   // Вычисление суммы значений элементов массива.
   end;
 p:= (random(1001) - 500)/10; // Присвоение случайного значения переменной p.
 writeln('Случайное число p: ',p:6:1);
 m:= sum/n;             // Вычисление среднего арифметического элементов массива.
 writeln('Среднее арифметическое элементов массива D(n): ',m:6:2);
 k:= 0;                // Установка счетной переменной в нуль.
 for i:= 1 to n do
   if abs(m-d[i]) <= p then    // Условие выбора элементов для заполнения массива R.
     begin
      inc(k);             // Счетчик для индекса нового массива.
      r[k]:= d[i];        // Присваивание значений элементам нового массива.
     end;
 writeln('Массив R(k)');
 for i:= 1 to k do
   begin
     write(r[i]:6:1);    // Вывод элементов массива на экран.
     if i mod 10 = 0 then
       writeln;
   end;
 readln;
end.