Файлы произвольного доступа

   f:text;

const
  a: array [1..5,1..6] of Integer = (
    (7, 5, 11, 4, 5, 3),
    (8, 9, 10, 14, 5, 2),
    (-2, 11, 6, 2, 2, 1),
    (4, 14, 13, 5, 1, 7),
    (6, 7, 1, 14, 6, 9));
 var
   f: file of Integer;
 begin
   Assign(f,'final.bin');
   Rewrite(f);
   Write(f,High(a),High(a[Low(a)]));
   for var i:=Low(a) to High(a) do
     for var j:=Low(a[Low(a)]) to High(a[Low(a)]) do
       Write(f,a[i,j]);
   Close(f);
end.

var
  f: file of Integer;
  n, m, t: Integer;  
begin
  Assign(f,'final.bin');
  Rewrite(f);
  Read(m,n);
  Write(f,m,n);
  for var i:=1 to m do for var j:=1 to n do begin
    Read(t); Write(f,t);
  end;
  Close(f);
end.

const W=4;
type FileInteger = file of Integer;
 
procedure fWrite(var f: FileInteger);
var m, n, t: Integer;
begin
  Reset(f); Read(f,m,n);
  for var i:=1 to m do begin
    for var j:=1 to n do begin
      Read(f,t); Write(' ',t:W);
    end; WriteLn;
  end;
end;

const W=4;
type TMatrix = array of array of Integer;
 
function MaxIdxByCol(const a: TMatrix; j: Integer): Integer;
var i: Integer;
begin
  Result:=0; for i:=1 to High(a) do if a[Result][j]<a[i][j] then Result:=i;
end;
 
procedure mWrite(const a: TMatrix; p: String);
begin
  WriteLn(p);
  for var i:=0 to High(a) do begin
    for var j:=0 to High(a[i]) do Write(' ',a[i][j]:W); WriteLn;
  end;
end;
 
var
  m, n: Integer;
  a: TMatrix;
  f: file of Integer;
begin
  Assign(f,'final.bin');
  Reset(f);
  Read(f,m,n); SetLength(a,m); for var i:=0 to m-1 do SetLength(a[i],n);
  for var i:=0 to m-1 do for var j:=0 to n-1 do Read(f,a[i][j]);
 
  mWrite(a,'A =');
  for var i:=0 to Min(m,n)-1 do Swap(a[i][i],a[MaxIdxByCol(a,i)][i]);
  mWrite(a,'A''=');
 
  Reset(f);
  Write(f,m,n);
  for var i:=0 to m-1 do for var j:=0 to n-1 do Write(f,a[i,j]);
  Close(f);
end.

  Read(f,m,n); SetLength(a,m,n);