Матрица через одномерный массив

{$R+}
 
uses
  crt;
 
const
  n=4;
  m=6;
 
type
  tmas2d=array[1..n,1..m] of integer;
 
procedure output(mas:tmas2d);
  var
    i,j:integer;
  begin
    for i:=1 to n do
      begin
        for j:=1 to m do write(mas[i,j]:2,'|');
        writeln
      end;
  end;
 
procedure swap(var a,b:integer);
  var
    m:integer;
  begin
    m:=a;
    a:=b;
    b:=m
  end;
 
procedure select(mas:tmas2d);
  var
    i,j,k:integer;
  begin
    for i:=1 to n do
      begin
        for j:=1 to (m-1) do
          for k:=j+1 to m do
            begin
              if (mas[i,j]>mas[i,k]) then swap(mas[i,k],mas[i,j])
            end;
      end;
    output(mas);
  end;
 
var
  i,j:integer;
  mas:tmas2d;
begin
  clrscr;
  randomize;
  for i :=1 to n do
    for j:=1 to m do
      begin
        mas[i,j]:= random(10)
      end;
  writeln('Base mas:');
  output(mas);
  writeln('Selected mas:');
  select(mas);
end.

type
  tmas=array[1..n] of integer;
  tmas1=array[1..m] of tmas;

uses crt;
const
  n=4;
  m=6;
type
  tmas=array[1..m] of integer;
  tmas1=array[1..n] of tmas;
procedure input(var mas:tmas1);
var i,j:integer;
begin
 for i :=1 to n do
 for j:=1 to m do
 mas[i][j]:= random(10)
end;
 
procedure output(mas:tmas1);
var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to m do
   write(mas[i][j]:2,'|');
   writeln
  end;
end;
 
procedure swap(var a,b:integer);
var m:integer;
begin
 m:=a;
 a:=b;
 b:=m
end;
 
procedure select(var mas:tmas);
var j,k:integer;
begin
 for j:=1 to m-1 do
 for k:=j+1 to m do
 if mas[j]>mas[k] then swap(mas[j],mas[k])
end;
 
var i:integer;
    mas:tmas1;
begin
 clrscr;
 randomize;
 input(mas);
 writeln('Base mas:');
 output(mas);
 for i:=1 to n do
 select(mas[i]);
 writeln('Selected mas:');
 output(mas);
end.