Транспонирование матрицы

[iamhated]

Вот написал программу, но она выдает ошибки. не могу справиться, помогите пожалуйста студенту.

program l7_18;
{Дана квадратная матрица А порядка n. Транспонируйте данную матрицу}
uses
 crt;
type
 mas = array[0..9, 0..9] of byte;
procedure trans(n,x,m:integer; a:mas);
var
 i,j:integer;
begin
 for i:=2 to m Do
  for j:=1 to i-1 Do
  begin
   x:=a[i,j];
   a[i,j]:=a[j,i];
   a[j,i]:=x;
  end;
end;
procedure vvedM(var m,n:integer; var a:mas; filename:string; fl1,fl2:boolean);
var
 i,j:integer;
 fin:text;
begin
 assign(fin,filename);
 if fl1 then
 reset(fin);
 readln(fin,m,n);
 for i:=1 to m do
  for j:=1 to n do
  read(fin,a[i,j]);
 if fl2 then
 close(fin);
end;
procedure vivedM(m,n:integer; a:mas; zag,filename:string; fl:boolean);
var
 i,j:integer;
 fout:text;
begin
 assign(fout,filename);
 if fl then
  rewrite(fout)
 else
  append(fout);
 writeln(fout,zag);
 for i:=1 to m do
 begin
  for j:=1 to n do
   write(fout,a[i,j]);
  writeln(fout);
 end;
 close(fout);
end;
begin
vvedm(m,n,a,'l7_18in.txt',true,false);
vivedm(n,l,b,'l7_18out.txt',true);
trans;
vivedm;
end.