работа с массивами

[Андрей.12]

Задача: Составить программу обработки матрицы размерности NxM. Выполнить программу для N=3, M=4. Заполнение массива произвести с помощью датчика случайных чисел. В программе предусмотреть вывод исходной матрицы и полученной.Упорядочить (переставить) строки массива. По не убыванию значений наименьших элементов строк.

uses crt;
var a:array[1..3,1..4]of integer;
i,j,n,m,r,nomer,k:integer;
min:array[1..3]of integer;
s:array[1..5] of integer;
max:integer;
p:integer;
begin
clrscr;
write('n=');
readln(n);
write('m=');
readln(m);
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10);
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:3);
end;
writeln;
end;
readln;
for i:=1 to n do
begin
min[i]:=a[i,1];
for j:=2 to m do
if min[i]>a[i,j] then
begin
min[i]:=a[i,j];
end;
write('otvet=',min[i]);
readln;
end;
for k:=1 to m-1 do
begin
max:=min[k];
nomer:=k;
for j:=k+1 to m do
if min[i]<max then
begin
max:=min[i];
nomer:=i;
end;
r:=min[k];
min[k]:=min[nomer];
s[nomer]:=r;
for i:=1 to n do
begin
r:=a[j,nomer];
a[j,nomer]:=a[j,k];
a[j,k]:=r;
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[j,k]:3);
end;
readln;
writeln;
end;
end.

вот что я сделал, неправильно меняет строки( подскажите