Процедуры ввода и вывода матрицы

program IMBASKILL;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 type
Tmas_i=array of integer;
Tmas_r=array of real;
Tmatr_i=array of Tmas_i;
Tmatr_r=array of Tmas_r;
Tpoint=record
  x,y:real;
end;
Tline=record
  k,b:real;
  x1,y1:real;
end;
Tokr=record
  centr:Tpoint;
  rad:real;
end;
Tmas_Tpoint=array of Tpoint;
Tmatr_Tpoint=array of Tmas_Tpoint;
Tmas_Tline=array of Tline;
Tmatr_Tline=array of Tmas_Tline;
procedure wwod_matr(m,n:integer);
var i,j:integer;
a:Tmatr_i;
begin
readln(m,n);
  setlength(a,n,m);
for i:=0 to n-1 do
  for j:=0 to m-1 do
  begin
    write('a[',i,',',j,']:=');
    readln(a[i,j])
  end;
 
end;
procedure wiwod_matr(m,n:integer);
var i,j:integer;
a:Tmatr_i;
begin
 writeln('Matrix:');
for i:=0 to n-1 do
begin
  for j:=0 to m-1 do
    write(a[i,j]:2,' ');
  writeln
end;
end;
procedure sortirovka(m,n:integer);
var a:Tmatr_i;
i,j:integer;
buf:integer;
begin
for i:=0 to n-1 do
  begin
  for j:=0 to m-2 do
  if a[i,j]>a[i,j+1] then
  buf:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=buf;
  end;
end;
 
 
var a:Tmatr_i;
i,j,m,n:integer;
begin
wwod_matr(n,m);
sortirovka(n,m);
wiwod_matr(n,m);
 
 
readln;
end.

[PASCAL][PASCAL]