с информатикой, завтра сдавать! ​

Const n=4;       m=3; var a: array[,] of integer;     b: array of integer;     i,j,k: integer; begin   setlength(b,n*m);   setlength(a,n,m);   randomize;   writeln('исходный массив: ');   for i: =0 to n-1 do   begin     for j: =0 to m-1 do       begin          a[i,j]: =random(-10,10);         write(a[i,j]: 4);       end;       writeln;   end;   // удаление строк массива     k: =0;   for i: =0 to n-1 do     if a[i,0]< =a[i,m-1] then     begin       k: =k+1;       for j: =0 to m-1 do        b[(k-1)*n+j]: =a[i,j];     end; // печать нового массива       writeln('новый массив: ');     setlength(a,k,m);   for i: =0 to k-1 do   begin     for j: =0 to m-1 do     begin       a[i,j]: =b[i*n+j];       write(a[i,j]: 4);     end;         writeln;   end;   end.исходный массив:   -3   5   -5     2   3   5   -8   3   -2     3   -4   -7 новый массив:     2   3   5   -8   3   -2