Дан одномерный массив А. Сформировать массив Б из отрицательных чисел массива А и массива С из положительных.( 0 нейтральное число) Найти минимальное и максимальное значение массива- Pascal(Паскаль)

uses crt;
const m=7;
      a:array[1..m] of integer=(2,7,-8,8,4,-3,2);
var b,c:array[1..m] of integer;
    k,n,i:byte;
begin
clrscr;
writeln('Массив А:');
for i:=1 to m do
write(a[i],' ');
writeln;
k:=0;n:=0;
for i:=1 to m do
if a[i]<0 then
 begin
  k:=k+1;
  b[k]:=a[i];
 end
else  if a[i]>0 then
 begin
  n:=n+1;
  c[n]:=a[i];
 end;
writeln('Массив B:');
for i:=1 to k do
write(b[i],' ');
writeln;
writeln('Массив C:');
for i:=1 to n do
write(c[i],' ');
readln
end.