Cформировать вектор из элементов матрицы, удовлетворяющих заданному условию, найти сумму элементов вектора

const
N = 10;
M = 5;
var L:array[1..N,1..M] of integer;
V:array[1..n*m] of integer;
i, a, j, b, sum,k: integer;
f:text;
begin
assign(f,'mas.txt');reset(f);
i:=0;
j:=0;
while not Eof(f) do
    begin
    inc(i);
    j:=0;
    while not Eoln(f) do
        begin
        inc(j);
        read(f,L[i,j]);
        end;
    readln(f);
    end;
writeln('Исходный массив:');
for i:=1 to N do
    begin
    for j:=1 to M do
        begin
        write(L[i,j]:3);
        end;
    writeln;
    end;
close(f);
writeln('Введите a и b');
readln(a, b);
k:=0;
sum:=0;
writeln('Искомый вектор:');
for i:=1 to N do
    for j:=1 to M do
        if (L[i,j] > a) and (L[i,j] < b) then
            begin
            inc(k);
            V[k]:=L[i,j];
            write(V[k]:3);
            sum:=sum+V[k];
            end;
writeln;
writeln('Сумма элементов вектора =  ', sum);
end.