Одномерный массив. Разделить массив на два

uses crt;
var b,b1,b2:array[1..100] of real;
    m,n,k,i,imn:integer;
begin
randomize;
write('Ðàçìåð ìàññèâà B îò 2 äî 100 m=');
read(m);
writeln('Ìàññèâ Â:');
for i:=1 to m do
 begin
  b[i]:=-5+10*random;
  write(b[i]:6:2);
  if i mod 13=0 then writeln;
  if i=1 then imn:=1
  else if b[i]<b[imn]then imn:=i
 end;
writeln;
writeln('Ìèíèìàëüíûé ýëåìåíò=',b[imn]:0:2,' åãî íîìåð=',imn);
if imn=m then writeln('Ìèíèìàëüíûé ýëåìåíò ïîñëåäíèé, ìàññèâ Â1 ïóñòîé')
else
 begin
  k:=0;
  for i:=imn+1 to m do
  if b[i]<0 then
   begin
    k:=k+1;
    b1[k]:=b[i];
   end;
  if k=0 then writeln('Ïîñëå ìèíèìàëüíîãî íåò îòðèöàòåëüíûõ ýëåìåíòîâ')
  else
   begin
    writeln('Ìàññèâ B1:');
    for i:=1 to k do
     begin
      write(b1[i]:6:2);
      if i mod 13=0 then writeln
     end;
    writeln
   end
 end;
if imn=1 then writeln('Ìèíèìàëüíûé ýëåìåíò ïåðâûé, ìàññèâ Â2 ïóñòîé')
else
 begin
  n:=0;
  for i:=1 to imn-1 do
  if b[i]>0 then
   begin
    n:=n+1;
    b2[n]:=b[i];
   end;
  if n=0 then writeln('Äî ìèíèìàëüíîãî íåò ïîëîæèòåëüíûõ ýëåìåíòîâ')
  else
   begin
    writeln('Ìàññèâ B2:');
    for i:=1 to n do
     begin
      write(b2[i]:6:2);
      if i mod 13=0 then writeln
     end;
    writeln
   end
 end;
end.