Как присвоить одномерному массиву свойства двумерного массива?

Type Matr=Array[1..30,1..30] of byte;
     Matr2=Array[1..30] of byte;
Var    
    M:Matr;
    MM:Matr2;
    N,C:byte;
 
Procedure Vvod(var m1:Matr; var n1:byte);
Var F:text;
    S:string;
    i,j:byte;
Begin
  Write('Введіть ім"я файлу:');
  Readln(S);
  Assign(F,S);
  Reset(F);
  Readln(F, n1);
  For i:=1 to n1 do
    For j:=1 to n1 do Read(F, m1[i,j]);
  Close(F);
End;
 
Procedure Vivod(m1:Matr; n1:byte);
Var i,j:byte;
Begin
  Writeln('Матриця:');
  For i:=1 to n1 do
    begin
      For j:=1 to n1 do Write(m1 [i,j]:3);
      Writeln;
    End;
End;
 
Procedure Ex(m1:Matr; n1:byte; Var a:Matr2);
Var i,j,:byte;
Begin
  Writeln('Ексцентриситети вершин:');
  a[i]:=m1[i,j];
  For i:=1 to n1 do
    For j:=1 to n1 do
      begin
        If m1[i,j]>a[i] then a[i]:=m1[i,j];
      end;
      
      For j:=1 to n1 do
        begin
          a[i]:=m1[1,j];
          For i:=2 to n1 do
            If m1[i,j]>a[i] then a[i]:=m1[i,j];
          Write(a[i]:3);
        end;
      Writeln;
End;
 
End.