Выполнить над прямоугольной матрицей В размером m x n последовательность действий:

const
  m=5;
  n=10;
var
  a: array [1..n] of integer;
  b: array [1..m, 1..n] of integer;
  i,j,summ: integer;
  fl: boolean;
begin
  randomize;
  writeln('Ввод элементов вектора: ');
  for i:=1 to n do
    begin
      write('a[',i,']=');
      readln(a[i]);
    end;
  writeln('Матрица: ');
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          b[i,j]:=random(201)-100;
          write(b[i,j]:6);
        end;
      writeln;
    end;
  writeln('Вектор: ');
  for i:=1 to n do write(a[i]:6);
  writeln;
  writeln('Матрица после замены: ');
  for i:=1 to m do
    begin
      fl:=false;
      for j:=1 to n do
        if b[i,j]<0 then
          begin
            fl:=true;
            break;
          end;
      for j:=1 to n do
        begin
          if fl then b[i,j]:=a[j];
          write(b[i,j]:6);
        end;
      writeln;
    end;
  for i:=1 to m do
    begin
      fl:=true;
      for j:=1 to n do
        if i=a[j] then fl:=false;
      if fl then
        begin
          summ:=0;
          for j:=1 to n do summ:=summ+b[i,j];
          writeln('Сумма ',i,' строки матрицы равна ',summ);
        end;
    end;
end.