Сформировать одномерный массив из отрицательных элементов матрицы — Pascal(Паскаль)

program prog;
uses crt;
const maxL = 10; maxM = 10;
var i,j,k : integer;
    L,M : integer;
    X : array[1..maxL, 1..maxM] of integer;
    a:array [1..maxL*maxM] of integer;
begin
   clrscr;
   writeln('Vvedite L(kol-vo strok) ot 1 do 10:');
   readln(L);
   writeln('Vvedite M(kol-vo stolbtstov) ot 1 do 10:');
   readln(M);
   for i := 1 to L do begin
       for j := 1 to M do begin
          write('Vvedite X[',i,'][',j,']=');
          readln(X[i,j]);
       end;
   end;
   writeln('Ishodniy massiv:');
   for i := 1 to L do begin
       for j := 1 to M do begin
          write(' ',X[i,j]);
       end;
       writeln;
   end;
   k:=0;
   for i:=1 to L do
       for j := 1 to M do
         begin
           if ( X[i,j] < 0 ) then
             begin
              k:=k+1;
              a[k]:=X[i,j];
             end;
         end;
    writeln('Result:');
      for i:=1 to k do
        write(a[i]:4);
end.