Введите с клавиатуры одномерный массив d(n), элементами которого являются положительные и отрицательный целые числа. сформируйте новый массив b(v) из положительных элементов и с(м) из отрицательных элементов. в массиве d(v) определите максимум, а в массиве с(м)-минимум.

Program asd;
Var B,C,D:array[1..2500] of integer;
i,max,min,n:integer;
BEGIN
Writeln('Введите размерность одномерного массив D: ');
Readln(n);
max:=D[1];
for i:=1 to n do
begin
Write('Введите D[',i,']: '); Readln(D[i]);
If max<D[i] then max:=D[i];
end;
 Writeln('Максимальный элемент в массиве: ',max);
 Writeln('Положительный массив B из D: ');
 min:=D[1];
 For i:=1 to n do
  begin
  If D[i]>0 then
      B[i]:=D[i];
   If D[i]<0 then
     C[i]:=D[i];
   If min>C[i] then
   min:=C[i];
     Write(B[i]:4);
      end;
 writeln;
  Writeln('Отрицательный массив C из D: ');
 For i:=1 to n do
  begin
 Write(C[i]:4);
 end;
 Writeln();
  Writeln('Минимальный элемент в массиве С: ',min);
END.