Матрицы.Процедуры

{Даны две действительные матрицы размера NxM и NхK. Построить для
каждой последовательность b1,..., bn по следующему правилу: если
первый элемент i-ой строки матрицы отрицательный, то bi равно сумме
элементов строки, иначе - нулю.}
const
  n=5;
  m=8;
  k=9;
type
  Matr1=array [1..n,1..m] of real;
  Matr2=array [1..n,1..k] of real;
  vector=array [1..n] of real;
var
  x:matr1;
  y:matr2;
  b:vector;
 
procedure CreateMatrix(var x1:matr1;var y1:matr2);
var
  i,j:integer;
begin
  writeln('Исходная матрица Х: ');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          x1[i,j]:=random*n*m - n*m div 2;
          write(x1[i,j]:8:2);
        end;
      writeln;
    end;
  writeln('Исходная матрица Y: ');
  for i:=1 to n do
    begin
      for j:=1 to k do
        begin
          y1[i,j]:=random*n*k - n*k div 2;
          write(y1[i,j]:8:2);
        end;
      writeln;
    end;
end;
 
procedure createvector(x1:matr1;y1:matr2);
var
  i,j:integer;
  sum:real;
begin
  writeln('Вектор для первой матрицы:');
  for i:=1 to n do
    begin
      if x1[i,1]>=0 then
        b[i]:=0
      else
        begin
          sum:=0;
          for j:=1 to m do
            sum:=sum+x1[i,j];
          b[i]:=sum;
        end;
      write(b[i]:8:2);
    end;
  writeln;
  writeln('Вектор для второй матрицы:');
  for i:=1 to n do
    begin
      if y1[i,1]>=0 then
        b[i]:=0
      else
        begin
          sum:=0;
          for j:=1 to k do
            sum:=sum+y1[i,j];
          b[i]:=sum;
        end;
      write(b[i]:8:2);
    end;
end;
 
begin
  randomize;
  creatematrix(x,y);
  createvector(x,y);
  readln;
end.