Нужно отсортировать массив!

[gylayko]

Есть двухмерный массив, который нужно отсортировать! Вот код первой части:

uses crt;
const m=3;n=5;
Var a:array [1..3,1..5] of integer; C:array[1..15] of integer;
max,i,j,str,k,b:integer;
y:real;
Begin
Randomize;
clrscr;

for i:=1 to m do
   for j:=1 to n do
      a[i,j]:=Random(100);
for i:=1 to m do begin
      for j:=1 to n do
      begin
	write(' ',a[i,j]:4);
	end;
	writeln;
	end;
	writeln;
	writeln;

так вот, начал я сортировать этот массив преобразованием его из двухмерного в одномерный! вот что получилось:

for i:=1 to m do
  begin
    for j:=1 to n do
      begin
      A[i,j]:=C[f];
      end;
  end;
repeat
 p:=false;
 for f:=1 to 15 do
  begin
  if C[f]>C[f+1] then
    begin
    p:=true;
    x:=C[f];
    C[f]:=C[f+1];
    C[f+1]:=x;
    end;
  end;
until not p;
for f:=1 to 15 do
write(' ',C[f]);
readln;

но в результате выдает одни нули, что я не так делаю?

[gylayko]

ну помогите пожалуйста, очень нужно!