Работа с матрицей. Паскаль

[Artem5]

Задание такое: Дана вещественная матрица. Упорядочить ее строки по неубыванию первых элементов строк. (Короче по возрастанию).

Вот что у меня

program stedn;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=9; m=1 ;
var i, p, z, j: integer;
var a:Array[1..n, 1..m] of integer;
begin
randomize;
for i:=1 to n do begin
  for j:=1 to m do begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
  end;
  writeln;
  writeln;
end;
z:=A[1,1];
for p:=1 to n do begin
for i:=p to n do begin
 if A[i,1] < z then
 z:=A[i,1];
 end;
 a[p,1]:=z;
 end;
for i:=1 to n do begin
  for j:=1 to m do
    write(a[i,j]:4);
    end;
readln;
end.

Минимальное находит, но что-то с изменением матрицы. Заранее спасибо за помощь.