Дан двумерный массив размерностью NхM, заполненная целыми числами. Получить одномерный массив, элементами (программа Паскаль)

USES Crt;
 CONST   N=5;   M=7;
 VAR
   A:ARRAY[0..N,0..M] OF INTEGER;   B:ARRAY[0..N] OF INTEGER;
   I,J:BYTE;
 BEGIN
   ClrScr;   Randomize;
{ Заполнение двумерного массива случайным образом и вывод в виде     прямоугольной          матрицы }
   WriteLn(' Значения элементов двумерного массива');
   WriteLn;
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO M DO Begin
       A[I,J]:=Random(30);    Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   WriteLn(' Cумма первого и последнего элементов соответствующих строк');
   WriteLn;
   FOR I:=1 TO N DO Begin
     B[I]:=A[I,1]+A[I,M];     Write(B[I]:3);
   End;
 END.