Упорядочить элементы каждой строки матрицы по возрастанию

program Sort;
Var
a:array[1..100,1..100] of integer;
pol,otr,i,j,n,m,b,tmp,k:integer;
begin
randomize;
pol:=0;
otr:=0;
Write('Введите кол-во строк: ');
Readln(m);
Write('Введите кол-во столбцов: ');
Readln(n);
Writeln('Исходная матрица');
for i:=1 to n do begin
  for j:=1 to m do begin
    a[i,j]:=random(200)-100;
    write(a[i,j]:5);
      if a[i,j]>0 then
        pol:=pol+1;
      if a[i,j]<0 then
        otr:=otr+1;
    end;
    writeln;
    end;
    writeln('Отрицательных: ',otr,', Положительных: ',pol);
    for k:=1 to n*m do 
for i:=1 to n do
for j:=1 to m do
   begin
    if j<>m then 
      begin
       if a[i,j+1]<a[i,j]
       then
        begin
         tmp:=a[i,j+1];
         a[i,j+1]:=a[i,j];
         a[i,j]:=tmp;
        end;
       end
    else
     if (a[i+1,1]<a[i,j])and(i<>n)
     then
      begin
       tmp:=a[i+1,1];
       a[i+1,1]:=a[i,j];
       a[i,j]:=tmp;
      end;
    end;
if pol>otr then    
writeln('Отсортированная матрица:')
else    Writeln('Отрицательных больше или равно');
for i:=1 to n do
 begin
  for j:=1 to m do
  if pol>otr then 
  write(a[i,j]:4)
  else break;
  writeln;
  end;
    end.