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

Program laba_3;
uses
    crt;
const
    n=6;
var
    A:array[1..n,1..n] of real;
    i,j,k:byte;
    x:real;
 
BEGIN
clrscr;
for i:=1 to n do
for j:=1 to n do
A[i,j]:=(2.89/i+j)+4.75*(2*i-5);
writeln('Array A');
for i:=1 to n do
 begin
  for j:=1 to n do
    write(A[i,j]:6:1,' ');
  writeln;
 end;
writeln;
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('Sorted array A');
for i:=1 to n do
 begin
    writeln;
     for j:=1 to n do
     write(A[i,j]:6:1,' ');
end;
readln;
end.