В двумерном массиве, в каждый строке сначала разместить положительные элементы, потом отрицательные элементы — Pascal(Паскаль)

Type m=array[1..20,1..20] of integer;
Var a:m;
    k,n,i,j,g,p  :integer;
    
Begin
  writeln('Vvedite K and N');
  readln(k,n);
  For i:=1 to k do
  For j:=1 to n do 
  begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
  end;
  for i:=1 to n do
    for j:=1 to k-1 do
      for g:=j+1 to n do
      if a[i,j] < a[i,g] then
      begin
        p:=a[i,j];
        a[i,j]:=a[j,g];
        a[i,g]:=p;
      end;
  for i:=1 to k do
    begin
      for j:=1 to n do
      write(a[i,j],' ');
      writeln;
    end;
  readln;
end.