Создать новый одномерный массив из массивов имеющих значение больше -5

program mass;
uses crt;
var B:array[1..8,1..8] of integer;
    i,j,k,p,max:       integer;
    s:                 real;
begin
clrscr;
writeln('Ввод и вывод двумерного массива');
randomize;
for  i:=1 to 8 do
     begin
     for j:=1 to 8 do
         begin
         B[i,j]:=random(120)-60;
         write(B[i,j]:4);
         end;
     writeln;
     end;
writeln();
 
writeln('опередили максимальный элемента столбца массива' );
max:=B[1,1];
for i:=1 to 8 do if max < B[i,1] then max:=B[i,1];
writeln('максимальный элемент:=',max);
writeln();
 
writeln(' Дополните предыщущаю программу таким образом ,чтобы она вычитала так же сумму элементов в каждой строке массива');
for i:=1 to 8 do
    begin
    k:=0;
    for j:=1 to 8 do
        k:=k+B[i,j];
    writeln('Результат:=',k) ;
    end;
 
 
end.

program mass;
uses crt;
var B:array[1..8,1..8] of integer;
newmas: array[1..64] of integer;
kol:integer;
    i,j,k,p,max:       integer;
    s:                 real;
begin
clrscr;
writeln('Ввод и вывод двумерного массива');
randomize;
for  i:=1 to 8 do
     begin
     for j:=1 to 8 do
         begin
         B[i,j]:=random(120)-60;
         write(B[i,j]:4);
         end;
     writeln;
     end;
writeln();
kol:=0;
for i:=1 to 8 do begin
 for j:=1 to 8 do begin
  if B[i,j]>-5 then begin
   kol:=kol+1;
   newmas[kol]:=B[i,j];
   write(newmas[kol]:4);
  end;
 end;
end;
writeln;