const
  n = 8;
  m = 8;

var
  i, j, k, kol :integer;
  
  a :array [1..n,1..m] of integer;
  b :array of integer;

begin

  kol:= 0;
  for i:= 1 to n do
    for j:= 1 to m do
    begin
      a[i,j]:= random(121)-60;
      if a[i,j] > -5 then
        inc(kol);
    end;
  for i:= 1 to n do
  begin
    for j:= 1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
    
  SetLength(b,kol);
  k:= 0;
  for i:= 1 to n do
    for j:= 1 to m do
      if a[i,j] > -5 then
      begin
        b[k]:= a[i,j];
        inc(k);
      end;
      
  for i:= 0 to kol-1 do
    write(b[i]:4);
      
end.