Переписать двумерный массив в одномерный и вывести на экран

const max=100;
var a:array[1..max,1..max] of integer;
    b:array[1..max*max] of integer;
    n,m,x,i,j,k,t:integer;
begin
write('Введите кол-во строк массива: m=');
readln(m);
write('Введите кол-во столбцов массива: n=');
readln(n);
randomize;
writeln('Исходная матрица:');
x:=0;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Массив:');
x:=0;
for i:=1 to m do
for j:=1 to n do
 begin
  x:=x+1;
  b[x]:=a[i,j];
  write(b[x]:4);
 end;
writeln;
//сортировка пузырьком
for j:=1 to x-1 do
for i:=1 to x-j do
if b[i]>b[i+1] then
 begin
  t:=b[i];
  b[i]:=b[i+1];
  b[i+1]:=t
 end;
writeln('Отсортитрованный массив:');
for i:=1 to x do
write(b[i]:4);
writeln;
for k:=1 to x do
 begin
  i:=(k-1)div n+1;{вычислим номер строки и столбца}
  j:=(k-1)mod n+1;
  a[i,j]:=b[k];{запишем элемент из массива в матрицу}
 end;
writeln('Отсортированная матрица');
for i:=1 to m do
 Begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end.