как довести до ума код по выводу результата сортировок матриц в файл и на форму

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtnrs, StdCtrls;
 
type
  TForm1 = class(TForm)
    lbl1: TLabel;
    btn1: TButton;
    OleContainer1: TOleContainer;
    lbl2: TLabel;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 type matr=array[1..4,1..4]of Real;
var
  Form1: TForm1;
  b:matr;
  i,j,k:Integer;//глобальные переменные
  f:TextFile;
  C:matr=( (0.8,-2.3,3.85,0),
  (-4.1,0.1,-1,0),
  (3.1,1,2.5,0),
  (0,0,0,0) );
  A:matr=( (-0.5,2.3,-0.8,1.1),
  (2.2,-1,1.35,4),
  (2.5,2.8,3.3,1.1),
  (0.5,1.8,7.05,4.1) );
  X:matr=( (0.25,1.8,-2.33,0),
  (-1,2.1,1.5,0),
  (0.9,1,3.1,0)
  (0,0,0,0) );
 
implementation
 
{$R *.dfm}
procedure Sort(var Q:matr;n,m:Integer);
For j:=1 to m do
For k:=1 to n-1 do
For i:=1 to n-k do
If (a[i,j]<a[i+1,j])and(a[1,j]<0] then
Begin
b:=a[i,j];
a[i,j]:=a[i+1,j];
a[i+1,j]:=b;
end;
Procedure WIWF (Var Q: matr; n,m:integer; name: string);
Begin
 Writeln (f,name);//заголовок
 For i:= 1 to n do
 Begin 
 For j:=1 to m do
 Write (f,Q[i,j]:6:3, ’ ’);
 Writeln(f);
 End;
 Writeln(f);
 End;
 //файл в процедуре не закрыт
 //основная программа
procedure TForm1.btn1Click(Sender: TObject);
begin
  assignfile(f,'matr.txt');
  Reset(f);
Vvod (C, 3, 3);
Vvod (A, 4, 4);
Vvod (X, 3, 3);
Closefile(f);
Assignfile(f,’matr.txt’);
Rewrite(f);
Wiwf (C,3,3, ’исходная матрица C’);
Wiwf (A,4,4, ’исходная матрица А’);
WIWF (X,3,3, ’исходная матрица X’ );
Sort (C,3,3);
Wiwf (C,3,3, ’измененная матрица C’);
Sort (A,4,4);
Wiwf (A,4,4, ’Измененная матрица A’);
Sort (X,3,3);
Wiwf (X,3,3, ’Измененная матрица X’);
Closefile(f);
End;
End.
AssignFile(f,'matr.txt');
 Reset(f);
 readln(f);
 for i:=1 to 3 do
 for j:=1 to 3 do
 read(f,C[i,j]);
 for i:=1 to 4 do
 for j:=1 to 4 do
 read(f,A[i,j]);
 for i:=1 to 3 do
 for j:=1 to 3 do
 read(f,X[i,j]);
closefile(f);
 
end;
 
end.