введите с клавиатуры одномерный массив D(N), элементами которого являются положительные и

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 maxlt;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]gt;0 then
      B[i]:=D[i];
   If D[i]lt;0 then
     C[i]:=D[i];
   If mingt;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.