Даны координаты n векторов n-мерного линейного пространства (n – целое число). Определить, являются ли эти вектора линейно независимыми. — Pascal(Паскаль)

program prg;
uses crt;
var
   m:array[1..20,1..21] of integer; {в последнем столбце результат сложения векторов}
   n,i,j: integer;
   lnz: boolean;
begin
     writeln('Enter demention:');
     readln(n);
     for j:=1 to n do begin {веторы - столбцы матрицы}
         write('Vector ',j,' ');
         for i:=1 to n do begin
             write(i,'=');
             read(m[i,j]);
             write(' ');
         end;
         writeln;
     end;
 
     for i:=1 to n do m[i,n+1]:=0;{обнулить результат сложения, он еще не известен}
 
     for j:=1 to n do {сложить элементы строки и записать сумму в последний элемент строки}
         for i:=1 to n do
             m[i,n+1]:=m[i,n+1] + m[i,j];
 
     lnz:=true; {предполагаем что они линейно независимы}
     for i:=1 to n do 
         if m[i,n+1]<>0 then lnz:=false; {если вектор не нулевой опровергаем предположение}
 
     if lnz then writeln('Dependent')
        else writeln('independent');
     readkey;
end.