Как это понимать?

program ideone;
uses math;
const n=5;
const m=3;
var a: array[0..n-1, 0..m-1] of integer;
i, j: byte;
function Vector: integer;
begin
i, j: byte;
var V: array[0..n] of real;
for i:=0 to n-1 do
begin
V[i]:=0;
for i:=0 to m-1 do
V[i]+:=abs(a[i][j]);
result:=V;
end;
end;
begin
for i:=0 to n-1 do
for i:=0 to m-1 do
a[i, j]:=power(cos(i+1),2)/(j+1);
writeln;
writeln('Matrica A');
for i:=0 to n-1 do
begin
writeln;
for i:=0 to m-1 do
write(a{i, j],'   ');
end;
writeln;
writeln('Vector= ',Vector);
end.

function Vector: integer;
begin
i, j: byte;
var V: array[0..n] of real;

function Vector: integer;
var
i, j: byte;
V: array[0..n] of real;
begin

const n = 5;
const m = 3;
type myMatrix = array[5..n, 3..m] of real;
type myVector = array[1..n] of real;
function Vector( A:myMatrix) : myVector;
var V : myVector;
begin
  for var i:=1 to n do
        for var j:=1 to m do
                V[i] := V[i] + abs(A[i, j]);
  result := V;
end;
begin
        var A : myMatrix;
        var V : myVector;
        for var i := 1 to n do
                for var j := 1 to m do
                        A[i, j] := power(cos(i), 2) / j;
       
        writeln('Matrix A: ');
        for var i := 1 to n do
        begin
                for var j := 1 to m do
                        write(A[i, j] : 6 : 2);
                writeln;
        end;
        V := Vector(A);
               
        writeln('Vector: ');
        for var i := 1 to n do
                write(V[i]:6:2);
        writeln;
end.

type myMatrix = array[5..n, 3..m] of real