Записать все положительные элементы двумерного массива в одномерный массив

const
  csize=5;
  
type
  tmatrix=array [1..csize,1..csize] of integer;
  tarray=array [1..100] of integer;
 
procedure creatematrix(var arg:tmatrix);
var
  i,j:byte;
begin
  for i:=1 to csize do begin
    for j:=1 to csize do begin
      arg[i,j]:=random(100)-50;
      write(arg[i,j]:4);
    end;
    writeln
  end;
end;
 
function positive(var arg:tmatrix;var ar:tarray):byte;
var
  i,j,k:byte;
begin
  k:=0;
  for i:=1 to csize do
    for j:=1 to csize do
      if arg[i,j]>0 then begin
        inc(k);
        ar[k]:=arg[i,j];
      end;
  positive:=k;
end;
 
function negative(var arg:tmatrix;var ar:tarray):byte;
var
  i,j,k:byte;
begin
  k:=0;
  for i:=1 to csize do
    for j:=1 to csize do
      if arg[i,j]<0 then begin
        inc(k);
        ar[k]:=arg[i,j];
      end;
  negative:=k;
end;
 
procedure writearray(var arg:tarray;size:byte);
var
  i:byte;
begin
  for i:=1 to size do
    write(arg[i]:4);
  writeln;
end;
 
var
  a:tmatrix;
  b,c:tarray;
  size:byte;
  
begin
  randomize;
  creatematrix(a);
  writeln;
  size:=positive(a,b);
  writearray(b,size);
  writeln;
  size:=negative(a,c);
  writearray(c,size);
end.