Ошибка неправильный тип параметров подпрограммы

Program lab7;
const n=7;
type
  TVector = array [0..n-1] of Real;
  TMatrix = array [0..n-1] of TVector;
 
procedure GetColumn(const m: TMatrix; col: Integer; var v: array of Real);
var i: Integer;
begin
  for var r :=1 to n do v[i]:=m[i,col];
end;
 
procedure SetColumnRev(var m: TMatrix; col: Integer; const v: array of Real);
var i: Integer;
begin
  for var r:=1 to n-1 do m[n-1-i,col]:=v[i];
end;
 
procedure vSortDsc(var v: array of Real);
var i, j, k: Integer; t: Real;
begin
  for var r:=Low(v) to High(v)-1 do begin
    k:=i; for var q:=i+1 to High(v) do if v[k]<v[j] then k:=j;
    if k>i then begin
      t:=v[i]; v[i]:=v[k]; v[k]:=t;
    end;
  end;
end;
 
procedure mWrite(const m: TMatrix);
var i, j: Integer;
begin
  for var w:=0 to n-1 do begin
    for var e:=0 to n-1 do 
    Write(' ',m[i,j]:6:2); 
    WriteLn;
  end;
end;
 
procedure create(var m: TMatrix);
var i, j, temp: Integer;
file_input:text;
begin
assign(file_input,'DATF.BIN');
Reset (file_input);
for var t:=0 to 18 do 
    read(file_input,temp);
 
for var y:=0 to n-1 do begin
    for var u:=0 to n-1 do 
    read(file_input,m[i,j]);
    end;
end;
 
var 
mat: TMatrix;
arr: array [0..n-1] of Real;
i:integer;
 
begin
writeln('Matrix');
create(mat);
mWrite(mat);
for var o:=0 to n-1 do begin
    GetColumn(mat,i,arr);
    vSortDsc(arr);
    SetColumnRev(mat,i,arr);
end;
writeln('Edit matrix:');
mWrite(mat);
 
end.