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

program massiv;
uses crt;
const n=8;
var
  a:array[1..n,1..n] of real;
  k,i,j,s,b:integer;
  p:boolean;
  x,z:real;
begin
  randomize;
  for i:=1 to n do
    begin
      if i>1 then writeln;
      for j:=1 to n do begin
      a[i,j]:=random*200-100;
      write(a[i,j]:8:3);
      end end;
      writeln;
      writeln;
      for i:=1 to n do begin
      for j:=1 to n do begin
      if (j>=0) and (i>=0) then begin
      x:= a[i,1];s:=1;end;
      if a[i,j]>x then begin
      x:=a[i,j];s:=j end;end;
      writeln(i,' ',s,' =',x:5:2);
      if s<(n-1) then begin repeat
      P:=true;
      for b:=s+1 to n do begin
if a[i,b]> a[i,b-1] then
begin
z:=a[i,b]; a[i,b]:=a[i,b-1]; a[i,b-1]:=z;
p:=false;
end end
until p;
end end;
for i:=1 to n do
begin
if i>1 then writeln;
for j:=1 to n do
write(a[i,j]:8:3);
end; end.

uses crt;
const n=8;
var  a:array[1..n,1..n] of real;
     i,j,k:integer;
     x:real;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random*200-100;
    write(a[i,j]:8:3);
   end;
  writeln;
 end;
for i:=1 to n do
for j:=1 to n-1 do
for k:=j+1 to n do
if(a[i,j]>0)and(a[i,k]>0)and(a[i,j]>a[i,k]) then
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
writeln('Сортировка положительных элементов строк:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:8:3);
  writeln;
 end;
end.

program massiv;
uses crt;
const n=8;
var
  a:array[1..n,1..n] of real;
  k,i,j,p:integer;
  x,z:real;
procedure pr;
  begin
    for i:=1 to n do begin
     for j:=1 to n do write(a[i,j]:8:3);
      writeln;
    end;
  end;
begin
  randomize;
  for i:=1 to n do
      for j:=1 to n do
         a[i,j]:=random*201-100;
pr;
      writeln;writeln;
 
      for i:=1 to n do begin
        p:=0;
          for j:=1 to n do if a[i,j]>0  then p:=p+1;
          if p>1 then
                   for j:=1 to n-1 do
                     for k:=j+1 to n do
                      if  (a[i,k]>0) and (a[i,k]<a[i,j]) then begin
                        z:=a[i,k]; a[i,k]:=a[i,j]; a[i,j]:=z;
                      end;
 
      end;
      
 pr;
end.