массив

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax] of integer;
    m,n,i,j,iv:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(50)+1;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
{сортировка первого столбца}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,1]<a[j,1] then
 begin
  x:=a[i,1];
  a[i,1]:=a[j,1];
  a[j,1]:=x;
 end;
writeln('Первый столбец по убыванию:');
for i:=1 to n do
 begin
   for j:=1 to m do
   write(a[i,j]:4);
   writeln;
 end;
writeln;
write('Нажмите Enter...');
readln;
writeln('Вектор B:');
for i:=1 to m do
 begin
  b[i]:=random(50)+1;
  write(b[i]:4);
 end;
writeln;
writeln;
{если первый элемент вектора не больше первого элемента последней строки}
if b[1]<=a[n,1] then
 begin
  n:=n+1;
  for j:=1 to m do
  a[n,j]:=b[j];{вставим последней строкой}
 end
else{иначе}
 begin
  for i:=1 to n do
  if b[1]>=a[i,1] then
   begin
    iv:=i;{ищем место для вставки}
    break;
   end;
  n:=n+1;
  for i:=n downto iv+1 do{сдвигаем строки вниз на 1}
  for j:=1 to m do
  a[i,j]:=a[i-1,j];
  for j:=1 to m do{вставляем}
  a[iv,j]:=b[j];
 end;
writeln('Вставка вектора строкой:');
for i:=1 to n do
 begin
   for j:=1 to m do
   write(a[i,j]:4);
   writeln;
 end;
readln
end.