Работа с матрицами в delphi7

[Enotik_1998]

Здравствуйте. Нужна помощь с задачей:Дана квадратная матрица, которая вводится и выводится в stringgrid. Проверить упорядочены ли элементы строк матрицы. Если нет, то упорядочить их в порядке возрастания методом стандартного обмена.
Вот мой исходный код:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
n:=StringGrid1.ColCount;
m:=StringGrid1.RowCount;
For i:=0 to n-1 do
For j:=0 to m-1 do
a[i+1,j+1]:=StrToFloat(StringGrid1.Cells[j,i]);
for j:=1 to m do begin
swp1:=true;
for i:=2 to n do
if a[i-1,j]>a[i,j] then begin
swp1:=false;
break
end;
swp2:=true;
for i:=2 to n do
if a[i-1,j]<a[i,j] then begin
swp2:=false;
break
end;
if swp1 xor swp2 then //Write('да':W)
else begin
//Write('нет':W);
repeat
swp1:=true;
for i:=2 to n do
if a[i-1,j]>a[i,j] then begin
swp1:=false;
t:=a[i-1,j]; a[i-1,j]:=a[i,j]; a[i,j]:=t;
end;
until swp1;
end;
end;
For i:=1 to n do
For j:=1 to m do
StringGrid1.Cells[j,i]:=FloatToStr(a[i+1,j+1]);
//for j:=1 to m do Write(a[i,j]:W:D);
end;

Как сделать вывод W и D в stringgrid в этих строках?:

if swp1 xor swp2 then //Write('да':W)
else begin
//Write('нет':W);

И как сделать вывод матрицы c W и D в stringgrid?:

For i:=1 to n do
For j:=1 to m do
StringGrid1.Cells[j,i]:=FloatToStr(a[i+1,j+1]);
//for j:=1 to m do Write(a[i,j]:W:D);