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

USES Crt;
 LABEL   M1;
 CONST   N=5;
 VAR
   H:ARRAY[0..N,0..N] 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 N DO Begin
       H[I,J]:=Random(25)-10;  Write(H[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   WriteLn(' Значения первых положительных элементов соответствующих строк');
   WriteLn;
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO N DO
       IF H[I,J]>0 THEN Begin  B[I]:=H[I,J];   GOTO M1;   End;
     M1: Write(B[I]:3);
   End;
 END.